I used your demo (Generate Searchable PDF):
// File -> Open
procedure TF_ScannPDF.Open1Click(Sender: TObject);
var
  filename: string;
begin
  filename := ImageEnMView1.MIO.ExecuteOpenDialog();
  if filename <> '' then
    ImageEnMView1.MIO.LoadFromFile(filename);
end;
And than I add it here:
  for i := 0 to ImageEnMView1.ImageCount - 1 do
    begin
      ImageEnMView1.SelectedImage := i;
      Application.ProcessMessages();
      ImageEnMView1.IEBitmap.ParamsEnabled := true;
      ImageEnMView1.IEBitmap.Params.PDF_PaperSize   := iepA4; // This added here, has no effect
      ImageEnMView1.IEBitmap.Params.Dpi := ImageEnMView1.MIO.Params[i].Dpi;
      pdfGen.addPage(ImageEnMView1.IEBitmap.GetIEVisionImage());
    end;
HS