procedure TfrmMain.Button1Click;
begin
  TaskCreateSearchablePDF := TTask.Create(procedure begin
    CreateSearchablePDF;
  end);
  TaskCreateSearchablePDF.Start;
end;

procedure TfrmMain.CreateSearchablePDF;
var
  IEMView: TImageEnMView;
begin
  IEMView:= TImageEnMView.Create(nil);
  try
    IEMView.MIO.LoadFromFile(source);
    IEMView.IEMBitmap.CreateSearchablePDF(path, title, lang, seg, frm, ocr);
  finally
    IEMView.Free;
  end;
end;

procedure TfrmMain.CreateSearchablePDF;
var
  IEM: TIEMultiBitmap;
begin
  IEM := TIEMultiBitmap.Create();
  try
    IEM.LoadFromFile(source);
    IEM.CreateSearchablePDF(path, title, lang, seg, frm, ocr);
  finally
    IEM.Free;
  end;
end;