1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

   procedure mergeTIFFs();
   var
     DC : Variant;
   begin
     try
       DC := CreateOleObject('Neevia.docCreator');

       DC.mergeMultipleTIFF('d:\file1.tif+d:\file2.tif+d:\file3.tif', 'd:\out.tif');
       DC.convertImage('d:\out.tif', 'd:\out.pdf');
       DC.fileDelete('d:\out.tif');
     finally
       DC := Unassigned;
     end;

     ShowMessage('Done !!!');
   end;