[Alegun]

Когда-то делал подобное способом перегонки текста в картинку,
а её затем в pdf-формат, не могу найти исходник, затерялся где-то
в сорцехранке, но работало всё по примеру из drkb, только нужно
установить в среду Acrobat Control for ActiveX посредством
Component -> Import ActiveX Control -> Install

Код:

function TifToPDF(TIFFilename, PDFFilename: string): boolean; 
var 
AcroApp : variant; 
AVDoc : variant; 
PDDoc : variant; 
IsSuccess : Boolean; 
begin 
result := false; 
if not fileexists(TIFFilename) then exit; 
try 
   AcroApp := CreateOleObject('AcroExch.App'); 
   AVDoc := CreateOleObject('AcroExch.AVDoc'); 
   AVDoc.Open(TIFFilename, ''); 
   AVDoc := AcroApp.GetActiveDoc; 

  if AVDoc.IsValid then 
   begin 
     PDDoc := AVDoc.GetPDDoc; 
     PDDoc.SetInfo ('Title', ''); 
     PDDoc.SetInfo ('Author', ''); 
     PDDoc.SetInfo ('Subject', ''); 
     PDDoc.SetInfo ('Keywords', ''); 
     Result:= PDDoc.Save(1 or 4 or 32, PDFFilename); 
     PDDoc.Close; 
   end; 

   AVDoc.Close(True); 
   AcroApp.Exit; 

finally 
   VarClear(PDDoc); 
   VarClear(AVDoc); 
   VarClear(AcroApp); 
end; 
end;

пример вызова

Код:

...
if not TifToPDF('c:\test.tif', 'c:\test.pdf') then Showmessage('Could not convert'); 
...

есть ещё PdfLib, но её не пользовал и поэтому сказать нечего