var 
  IEVisionImage: TIEVisionImage;
  IEVISION_symbol: TIEVisionBase; // 2019-11-04 ... TIEVisionBarCodeSymbol;
  IEVisionWString: TIEVisionWString;
  IEVISION_selRect: TIEVisionRect;
  IEVISION_m_symbols: TIEVisionVectorObjRef;


          IEVisionImage := tmpIEBmp.GetIEVisionImage; 
          IEVISION_selRect := IEVisionRect(0, 0, tmpIEBmp.Width, tmpIEBmp.Height);
          IEVISION_m_symbols := IEVisionLib.createBarCodeScanner().scan(IEVisionImage, IEVISION_selRect);

          for n := 0 to IEVISION_m_symbols.size - 1 do
          begin
// FIRST METHOD 
            IEVISION_symbol := IEVISION_m_symbols.getObj(n);
            IEVisionWString := TIEVisionBarCodeSymbol(IEVISION_symbol).getData();
            AGSBarcode := IEVisionWString.c_str;

// SECOND METHOD 
            AGSBarcode := TIEVisionBarCodeSymbol( IEVISION_m_symbols.getObj(n) ).getData.c_str;

            if pos(cNumerisation_SeparPrefix, AGSBarcode) = 1 then
            begin
              if AGSBarcode = cNumerisation_SeparPage1
              then QrCodeNewDocDetecte := true       document
              else PageSeparationDetectee := true;   

              Break;
            end
            else
              AGSBarcode := '';
          end;

procedure TMainForm.Button1Click(Sender: TObject);
var
  IEVisionImage: TIEVisionImage;
  IEVISION_symbol: TIEVisionBase;
  IEVisionWString: TIEVisionWString;
  IEVISION_selRect: TIEVisionRect;
  IEVISION_m_symbols: TIEVisionVectorObjRef;
  n: integer;
  AGSBarcode: string;
begin
  IEVisionImage := ImageEnView1.IEBitmap.GetIEVisionImage;
  IEVISION_selRect := IEVisionRect(0, 0, ImageEnView1.IEBitmap.Width, ImageEnView1.IEBitmap.Height);
  IEVISION_m_symbols := IEVisionLib.createBarCodeScanner().scan(IEVisionImage, IEVISION_selRect);

  Caption := '';

  for n := 0 to IEVISION_m_symbols.size - 1 do
  begin
    // FIRST METHOD
    IEVISION_symbol := IEVISION_m_symbols.getObj(n);
    IEVisionWString := TIEVisionBarCodeSymbol(IEVISION_symbol).getData();
    AGSBarcode := IEVisionWString.c_str;

    // SECOND METHOD
    // AGSBarcode := TIEVisionBarCodeSymbol( IEVISION_m_symbols.getObj(n) ).getData.c_str;

    Caption := Caption + AGSBarcode + ', '
  end;
end;