scan:= TScanner.Create(True);
    scan.OnError := @GetScanError;
    scan.OnScan := @GetScan;
    scan.Resume;

  
//Класс
TMyReceiver = class(TJavaLocal, JFMXBroadcastReceiverListener)
  public
    constructor Create;
    procedure onReceive(context: JContext; intent: JIntent); cdecl;
  end;

    FMyListener: TMyReceiver;
    FBroadcastReceiver: JFMXBroadcastReceiver;

procedure TForm1.FormCreate(Sender: TObject);
var
  Filter: JIntentFilter;
  s: string;
begin
  
  //Создание экземпляра
  FMyListener := TMyReceiver.Create;
  FBroadcastReceiver := TJFMXBroadcastReceiver.JavaClass.init(FMyListener);
end;

  //Процедура перехвата сообщения
procedure TMyReceiver.onReceive(context: JContext; intent: JIntent);
var
  p: JParcelable;
  B: JBundle;
  s: string;
begin

  B:=intent.getExtras;
  s:=  JStringToString(B.getString(stringtojstring('EXTRA_BARCODE_DECODING_DATA')));
end;