type
TCallbackScanStart = procedure(adapter: simpleble_adapter_t; userdata: PPointer);
TCallbackScanStop = procedure(adapter: simpleble_adapter_t; userdata: PPointer);
TCallbackScanUpdated = procedure(adapter: simpleble_adapter_t; peripheral: simpleble_adapter_t; userdata: PPointer);
TCallbackScanFound = procedure(adapter: simpleble_adapter_t; peripheral: simpleble_adapter_t; userdata: PPointer);