unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, hyiedefs, hyieutils, iexBitmaps,
  iesettings, iemio, Vcl.StdCtrls, ieview, iemview, ievision;

type
  TForm2 = class(TForm)
    ImageEnMView1: TImageEnMView;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ImageEnMView1Changed(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  ImageEnMView1.FillFromDirectory('C:\Users\lala\Downloads\scan\', -1, False, '', False, '', True);
end;

procedure TForm2.ImageEnMView1Changed(Sender: TObject);
begin
  var m_symbols:= IEVisionLib.createBarCodeScanner().scan(ImageEnMView1.IEBitmap.GetIEVisionImage(), IEVisionRect(0, 0, 0, 0));
end;

end.

  if ImageEnMView1.IEBitmap = nil then
    raise Exception.create( 'Image not selected' );
  var m_symbols:= IEVisionLib.createBarCodeScanner().scan(ImageEnMView1.IEBitmap.GetIEVisionImage(), IEVisionRect(0, 0, 0, 0));