anchor.diff:  
   interface
   
  -function ConvertImageToPdf(const aSourceImageFile, aDestinationPdfFile : String): boolean;
  +function ConvertImageToPdf(const aSourceImageFile, aDestinationPdfFile : String; const aEnlargeToPage : boolean): boolean;
   
   implementation
   
  
positive.code: 
      pageWidth := round(page.Paper.Printable.R - page.Paper.Printable.L);
      pageHeight := round(page.Paper.Printable.B - page.Paper.Printable.T);
  
      page.DrawImage(1, 1, pageWidth, pageWidth, img);
  
      doc.SaveToFile(aDestinationPdfFile);
    finally
  
negative.code:   fppdf,
    fpparsettf;
  
  function ConvertImageToPdf(const aSourceImageFile, aDestinationPdfFile: String; const aEnlargeToPage : boolean): boolean;
  var
    doc : TPDFDocument;
    page : TPDFPage;
    sec : TPDFSection;
    img, w, h, pageWidth, pageHeight, imgWidth, imgHeight : integer;
  begin
    Result := false;
    doc := TPDFDocument.Create(Nil);
  