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