How to Split PDF and Merge PDF in Delphi ?

procedure TForm1.Button1Click(Sender: TObject);
var
  obj: OleVariant;
  iRtn, iPageCount: Integer;
begin
  //Create object
  obj := CreateOleObject('PDFSplitMergeX.SplitMergeLib');

  //Set your license key
  obj.SetLicenseKey('License Code');

  //Split PDF file
  iRtn:= obj.Split('..\PDF-Split-Merge-ActiveX-DLL.pdf','', '1,2-3,4-5,6', '..\split-%d.pdf');
  if iRtn = 1 then
  begin
    ShowMessage('Split Successfuly.');
  end;

  //Merge PDF file
  iRtn:= obj.Merge('..\split-1.pdf|..\split-2.pdf?1-1', '..\merge-1.pdf');
  if iRtn = 1 then
  begin
    ShowMessage('Merge Successfuly.');
  end;

  //Get Page Count
  iPageCount:= obj.GetPageCount('..\PDF-Split-Merge-ActiveX-DLL.pdf', '');

  Obj := Unassigned;
end;