Source position: bluetooth.pas line 16
type TOnDiscoveryFinished = procedure(
Sender: TObject;
countFoundedDevices: Integer;
countPairedDevices: Integer
) of object;