var
  IO: TImageEnIO;
  Proce: TImageEnProc;
begin
  IO := TImageEnIO.Create(NIL);
  Proce := TImageEnProc.CreateFromBitmap(IO.IEBitmap);
  IO.CreatePDFFile('test.pdf');
  try

    IO.LoadFromFile('1.jpeg');
    Proce.TextOut(100, 100, 'adsfasdfasdfa');
    IO.Params.PDF_PaperSize := iepA3;
    IO.Params.PDF_Compression := ioPDF_JPEG;
    IO.SaveToPDF;

    IO.LoadFromFile('2.jpeg');
    IO.Params.PDF_PaperSize := iepA3;
    IO.Params.PDF_Compression := ioPDF_JPEG;
    Proce.TextOut(100, 100, 'adsfasdfasdfa');
    IO.SaveToPDF;
  finally
    IO.ClosePDFFile;
    IO.Free;
    Proce.Free;
  end;
end;