Keine konkrete Lösung zu deinem Problem aber vielleicht doch ein nützlicher Hinweis:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
hDeviceFind:THANDLE;
deviceInfo:BLUETOOTH_DEVICE_INFO;
deviceSearchParams:BLUETOOTH_DEVICE_SEARCH_PARAMS;
begin
deviceInfo.dwSize := SizeOf(deviceInfo);
In obigem Code wird der Low-Level-Code (das Blutoothzeug) direkt mit High-Level-Code (Events) vermischt.
Das ist nicht gut, denn es fehlt eine Abstraktionsebene bzw. es verstösst gegen das Prinzip
Single Level of Abstraction.
Hier fehlt schlichtweg eine Klasse, um die Zugiffe auf die Bluetooth-
API zu kapseln.