ImageEnView := TImageEnView.Create(nil);
try
  ImageEnView.PdfViewer.Enabled := True;
  ImageEnView.PdfViewer.LoadFromFile(SourcePath);
  pdfGen := IEVisionLib.createSearchablePDFGenerator(PAnsiChar(AnsiString(OcrPath)), PAnsiChar(AnsiString(LanguageCode)));
  pdfGen.beginDocument(PAnsiChar(AnsiString(DestinationPath)), PAnsiChar(AnsiString(PdfTitle)));
  for i := 0 to ImageEnView.PdfViewer.PageCount - 1 do
    begin
      IEBitmap := TIEBitmap.Create;
      try
        ImageEnView.PdfViewer.PageIndex := i;
        ImageEnView.PdfViewer.DrawTo(IEBitmap);
        pdfGen.addPage(IEBitmap.GetIEVisionImage());
      finally
        IEBitmap.Free;
      end;
    end;
  pdfGen.endDocument();
finally
  ImageEnView.Free;
end;