Delphi IOS Bluetooth LE, Mac Bluetooth Adapter ?

Hi

Bluetooth LE Problem: Delphi can't see the hardware of Mac Bluetooth Adapter.

GetCurrentAdapter cannot see the Mac Bluetooth Device.

Platform WIN7 Delphi 10.2 Sample 'ExploreDeviceLE' and 'BLEScanner' on IOS IOS: Mac Mini, macOS High Sierra V10.13.3 Target Platform MacOSX 10.13.2

'Android' I run the apps on Android. It can find the BLE device of Android Tablet or Phone.

'Mac Mini' The apps starts normal on IOS. I try to 'Find device'. It popup exception 'raised exception class EBluetoothAdapterException with message Bluetooth device not found: disconnected or turned off'. I check with the 'Setting'. Bluetooth device is turned ON. It looks like it cannot see the Mac Mini Bluetooth in Delphi.

In Mac Mini side, I check the IO by 'Hardware_IO_Tools_for_xCode.  Use Bluetooth Explorer>Low Energy Device where CBCentralManager: Powered ON.

Delphi side, BluetoothLE1.DiscoverDevices(2500);    //This code is not working

Would you please help me to check about what is going on?

Thank you for your assistance.

Dko

Here is my code:-

============================

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  System.Bluetooth, System.Bluetooth.Components, FMX.Controls.Presentation,
  FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    BluetoothLE1: TBluetoothLE;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Find device(Sender: TObject);
begin
  BluetoothLE1.DiscoverDevices(2500);  //This code is not working

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BluetoothLE1.Enabled := True;
end;

end.