Source position: bluetooth.pas line 18
type TOnDeviceBondStateChanged = procedure(
Sender: TObject;
state: Integer;
deviceName: string;
deviceAddress: string
) of object;