Может их нет, новых, а есть устройства которые уже подключались ранее Bluetooth.GetPairedDevices;
FPairedDevices := Bluetooth.GetPairedDevices;
if FPairedDevices.Count > 0 then
for I:= 0 to FPairedDevices.Count - 1 do
ListBox.Items.Add(FPairedDevices[I].DeviceName)
Ну и если Android API >= 31
if TJBuild_VERSION.JavaClass.SDK_INT >= 31 then
begin
FPermissionBTConnectSettings := JStringToString(TJManifest_permission.JavaClass.BLUETOOTH_CONNECT);
FPermissionBTScanSettings := JStringToString(TJManifest_permission.JavaClass.BLUETOOTH_SCAN);
FPermissionBTAdvertiseSettings := JStringToString(TJManifest_permission.JavaClass.BLUETOOTH_ADVERTISE);
PermissionsService.RequestPermissions([FPermissionBTConnectSettings] +
[FPermissionBTScanSettings] +
[FPermissionBTAdvertiseSettings], nil);
end;