procedure DoScan; const HeartRateService: TBluetoothUUID = '{0000180D-0000-1000-8000-00805F9B34FB}'; begin BluetoothLE1.DiscoverDevices(2500) // The parameter is the timeout in milliseconds. BluetoothLE1.DiscoverDevices(2500, [HRService]) // It only exposes devices with the Heart Rate service to the BluetoothLE client. end;