procedure TForm1.Button1Click(Sender: TObject);
begin
od1.Execute(Form1.Handle);
if od1.FileName <> '' then
begin
im1.IO.LoadFromFile(od1.FileName);
im1.Fit();
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ocrrect: TIERectangle;
  langPath : string;
  langCode: string;
  langis : String;
begin
m1.Clear;
memo1.Clear;
Screen.Cursor := crHourglass;

langCode := string(IEVisionLanguageNameToCode('English'));
if cmbengine.Text = 'LTSMLegacy' then langPath := IncludeTrailingBackSlash(ExtractFilePath(Application.ExeName) + 'LTSMLegacy');
if cmbengine.Text = 'LTSMFast' then langPath := IncludeTrailingBackSlash(ExtractFilePath(Application.ExeName) + 'LTSMFast');
if cmbengine.Text = 'LTSMBest' then langPath := IncludeTrailingBackSlash(ExtractFilePath(Application.ExeName) + 'LTSMBest');

if not IEVisionAvailable(False) then
begin
  ShowMessage('This application requires ievision.dll plugin. Please download it from www.imageen.com/download/');
  Application.Terminate;
  exit;
end;

//langis := langcode +  '.traineddata';

//memo1.Lines.Add(langis);
//memo1.Lines.Add(langpath + langcode + '.traineddata');
Try

OCR := IEVisionLib.createOCR(PAnsiChar(AnsiString(langPath)), PAnsiChar(AnsiString(langCode)), TIEVisionOCREngine(cmbEngine.ItemIndex));
//OCR := IEVisionLib.createOCR(PAnsiChar(AnsiString(langPath)), PAnsiChar(AnsiString(langis)), TIEVisionOCREngine(cmbEngine.ItemIndex));

OCR.setSegmentationMode(TIEVisionOCRPageSegmentationMode(cmbLayout.ItemIndex));

ocrrect := Im1.SelectedRect;

m1.Lines.Text := OCR.recognize(Im1.IEBitmap.GetIEVisionImage(), IEVisionRect(ocrrect.x, ocrrect.y, ocrrect.width, ocrrect.height)).c_str();

except
    on E: Exception do
    begin
      if E is EAccessViolation then
        MessageDlg('An error was encountered processing this image. Ensure you are using the latest version of the IEVision plug-in.', mtError, [mbOK], 0)
      else
        MessageDlg('An error was encountered processing this image: ' + e.message, mtError, [mbOK], 0);
    end;
  end;
Screen.Cursor := crDefault;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ocrrect: TIERectangle;
  langPath : string;
  langCode: string;
  eng: TIEVisionOCREngine;
begin
  m1.Clear;
  Screen.Cursor := crHourglass;

  langCode := string(IEVisionLanguageNameToCode('English'));
  if cmbengine.Text = 'LTSMLegacy' then                                  
  begin
    langPath := IncludeTrailingBackSlash(ExtractFilePath(Application.ExeName) + 'LTSMLegacy');
    eng := ievOCRLTSMAndLegacy; // or ievOCRDefault or ievOCRLegacy
  end
  else
  if cmbengine.Text = 'LTSMFast' then
  begin
    langPath := IncludeTrailingBackSlash(ExtractFilePath(Application.ExeName) + 'LTSMFast');
    eng := ievOCRLTSM; // Or ievOCRDefault
  end
  else
  if cmbengine.Text = 'LTSMBest' then
  begin
    langPath := IncludeTrailingBackSlash(ExtractFilePath(Application.ExeName) + 'LTSMBest');
    eng := ievOCRLTSM; // Or ievOCRDefault
  end
  else
    raise Exception.create( 'Invalid selection' );

  if not IEVisionAvailable(False) then
  begin
    ShowMessage('This application requires ievision.dll plugin. Please download it from www.imageen.com/download/');
    Application.Terminate;
    exit;
  end;

  OCR := IEVisionLib.createOCR(PAnsiChar(AnsiString(langPath)), PAnsiChar(AnsiString(langCode)), eng );
  OCR.setSegmentationMode(TIEVisionOCRPageSegmentationMode(cmbLayout.ItemIndex));

  ocrrect := Im1.SelectedRect;
  m1.Lines.Text := OCR.recognize(Im1.IEBitmap.GetIEVisionImage(), IEVisionRect(ocrrect.x, ocrrect.y, ocrrect.width, ocrrect.height)).c_str();

  Screen.Cursor := crDefault;
end;