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

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

        RVal := DC.mergePDF('d:\file1.pdf','d:\file2.pdf', 'd:\out.pdf');

        if (RVal <> 0) then
          ShowMessage('There was an error!!! Code: '+IntToStr(RVal))
        else
          ShowMessage('Done !!!');
      finally
        DC := Unassigned;
      end;
   end;