procedure TForm1.ConvertTiffToPdf(inputImagePath: String; outputFilePath: String);

var

  page, pages, id, UnlockResult, result, dpix, dpiy, docid: Integer;

  imageWidthInPoints, imageHeightInPoints: Double;

  pdfLib: TDebenuPDFLibrary0913;

begin

  pdfLib := TDebenuPDFLibrary0913.Create;

  pdfLib.UnlockKey('jn3343ac9ko4yt4gj7ak5z34y');

    

  docid := pdfLib.NewDocument;

  pdfLib.SetPDFAMode(2);

  pages := pdfLib.GetImagePageCount(inputImagePath);

  if pages = 0 then pages := 1;

  for page := 1 to pages do

  begin

      if page <> 1 then pdfLib.NewPage;

      id := pdfLib.AddImageFromFile(inputImagePath, page);

      pdfLib.SelectImage(id);

      dpix := pdfLib.ImageHorizontalResolution;

      dpiy := pdfLib.ImageVerticalResolution;

      if dpix = 0 then dpix := 72;

      if dpiy = 0 then dpiy := 72;

      imageWidthInPoints := pdfLib.ImageWidth / dpix * 72.0;

      imageHeightInPoints := pdfLib.ImageHeight / dpiy * 72.0;

      pdfLib.SetPageDimensions(imageWidthInPoints, imageHeightInPoints);

      pdfLib.SetOrigin(1);

      pdfLib.DrawImage(0, 0, imageWidthInPoints, imageHeightInPoints);

  end;

    

  pdfLib.SaveToFile(outputFilePath);

  pdfLib.RemoveDocument(docid);

    

  pdfLib.Free;

end;