Source position: bluetooth.pas line 15
type TOnDeviceFound = procedure(
Sender: TObject;
deviceName: string;
deviceAddress: string
) of object;