uses System.SysUtils, System.Classes,  System.Generics.Collections,  Androidapi.JNI.USB,  Androidapi.JNI.Embarcadero,  Androidapi.JNIBridge,  Androidapi.JNI.GraphicsContentViewText,  Androidapi.JNI.JavaTypes,  Androidapi.JNI.App,  Androidapi.JNI.os,...;  TUsbFtdiBroadcastReceiverListener = class(TJavaLocal, JFMXBroadcastReceiverListener)  private    [Weak] FPort: TFTDIPort;  public    constructor Create(const Owner: TFTDIPort);    procedure onReceive(context: JContext; intent: JIntent); cdecl;  end;  TFTDIPort = class(TInterfacedObject, ICommPort)  protected    class var FManager: JD2xxManager;    class var FListener : TUsbFtdiBroadcastReceiverListener;    class var FReceiver: JFMXBroadcastReceiver;    class var FUsbManager:JUsbManager;    class var FFilter:JIntentFilter;    class procedure InitClass;  public    function Connect(Device : String): Boolean;    procedure Disconnect;    ......   end;{ TUsbFtdiBroadcastReceiverListener }const  ACTION_USB_PERMISSION=‘com.android.example.USB_PERMISSION‘;constructor TUsbFtdiBroadcastReceiverListener.Create(const Owner: TFtdiPort);begin  inherited Create;  FPort:=Owner;end;procedure TUsbFtdiBroadcastReceiverListener.onReceive(context: JContext;  intent: JIntent);var  action:String;  Accessory:JUsbAccessory;begin  action:=JStringToString(intent.getAction);  if action=ACTION_USB_PERMISSION then  begin    if (intent.getBooleanExtra(TJUsbManager.JavaClass.EXTRA_PERMISSION_GRANTED, False)) then    begin      Accessory:= TJUsbAccessory.Wrap(intent.getParcelableExtra(TJUsbManager.JavaClass.EXTRA_ACCESSORY));      if JStringToString(Accessory.getManufacturer)=‘FTDI‘ then      begin        FPort.Connect(JStringToString(Accessory.toString));      end;    end;  end  else if (action=TJUsbManager_ACTION_USB_DEVICE_DETACHED) then  begin    FPort.Disconnect;  end  else  begin  end;end;class procedure TFtdiPort.InitClass;beginif not Assigned(FUsbManager) then  begin    FUsbManager := TJUsbManager.Wrap(SharedActivityContext.getSystemService(TJContext.JavaClass.USB_SERVICE));    if not Assigned(FUsbManager) then Exit;    FListener := TUsbFtdiBroadcastReceiverListener.Create(nil);    if not Assigned(FListener) then Exit;    FReceiver := TJFMXBroadcastReceiver.JavaClass.init(FListener);    if not Assigned(FReceiver) then Exit;    FFilter:=TJIntentFilter.JavaClass.init(StringToJString(ACTION_USB_PERMISSION));    if not Assigned(FFilter) then Exit;    FFilter.addAction(TJUsbManager.JavaClass.ACTION_USB_ACCESSORY_DETACHED);    SharedActivityContext.registerReceiver(FReceiver, FFilter);  end;end;