Delphi 7
QPDF 0717

When I merge files using the following procedure I get 1 blank page.  The resulting document has the correct name but no contents.  I've searched in vain for what I'm doing wrong.  I've looked at the Delphi demos and can't see what I'm doing wrong.  I've already searched the forum but there is no sample code to show how to successfully use AddToFileList and MergeFileList. 

I'm still evaluating Quick PDF but this is one of my last hurdles before I buy. 

procedure TAutoPrintMainFormForm.MergeEmailPDFsQPDF ;
var source, destination, pname : string ;
   i : integer ;
   Unlockresult : integer ;
   QPDF : TQuickPDF0717 ;
   groupfolder, problemsfolder, pdftempfolder : string ;
   sFileName, pdfname : AnsiString ;
begin
   try
     QPDF := TQuickPDF0717.Create ;
     UnlockResult := QPDF.UnlockKey(QPDFKey);

     QPDF.ClearFileList(sFileName) ;

     // add pdfs to list for merging
     for i := 0 to EmailPDFsFolderMemo.Lines.Count - 1 do
     begin
       // filename with path
       pdfname := Trim(EmailPDFsFolderMemo.Lines) ;
       QPDF.AddToFileList( sFileName, pdfname );
     end ;

     // make folder if it does not exist

     groupfolder := EmailPDFProcessFolderDBEdit.Text + '\' +
                    EmailFolderName ;

     // does folder already exist? if not create

     if not ( DirectoryExists ( groupfolder ) ) then
     begin
       ForceDirectories ( groupfolder ) ;
     end ;

     MergedPDFName := groupfolder + '\' +
                      EmailTransactionDateTime + '_' +
                      EmailFolderName + '.pdf' ;

     QPDF.MergeFileList( sFileName, MergedPDFName ) ;

     QPDF.SaveToFile(MergedPDFName) ;

   finally
     QPDF.Free ;
   end ;
  
end;