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