var
  IO: TImageEnIO;
  Proce: TImageEnProc;

 IO := TImageEnIO.Create(nil);
  IO.Params.PDF_PaperWidth := 1190;
  IO.Params.PDF_PaperHeight := 842;
  IO.Params.PDF_Compression := ioPDF_JPEG;
  Proce := TImageEnProc.CreateFromBitmap(IO.IEBitmap);

IO.CreatePDFFile(vPDFName);

 if IO.LoadFromStreamJpeg(PhotoStream) then
begin
Proce.TextOut(vPosX, vPosY, vMarkInfo, 'Times New Roman', MarkTextFontSize, clRed, [fsBold]);
IO.IEBitmap.RemoveAlphaChannel();
 IO.SaveToPDF;
 IO.ClosePDFFile;
end;

IO.IEBitmap.Canvas.Font.Size := MarkTextFontSize;
IO.IEBitmap.Canvas.Font.Color := clRed;
IO.IEBitmap.Canvas.Font.Name := '#23435;#20307;';
IO.IEBitmap.Canvas.Font.Style := [TFontStyle.fsBold];
IO.IEBitmap.Canvas.TextOut(vPosX, vPosY, vMarkInfo);