Problem with MergeFileListFast in Delphi

Hi Wilbur,

Having trouble implementing then
MergeFileListFast function to Merge all PDF files into a common PDF file ...

Here is my sample code in one function ...

Function TForm1.AddSections2CommonDoc(FileName : String; DeleteSource : Boolean) : Boolean;
Var
  FilePath : String;
  AddFileName : String;
  FileIndex : Integer;
  AddedFiles : Integer;
  CommonDocPDF: TDebenuPDFLibrary1212;
  SearchResult : TSearchRec;

Begin

  If FileExists(FileName) = True then
    Begin
      Result := False;
      ShowMessage('File Exists: [' + FileName + ']');
      Exit;
    End
  Else
    Begin
      CommonDocPDF := TDebenuPDFLibrary1212.Create();
    End;

  FilePath := IncludeTrailingBackSlash(ExtractFileDir(FileName));

  CommonDocPDF.SetTempPath('c:\temp\');
  CommonDocPDF.ClearFileList('myList');

  If FindFirst(FilePath + '*.pdf', faArchive, searchResult) = 0 then
    begin
      repeat
        AddedFiles := CommonDocPDF.AddToFileList('myList', FilePath+searchResult.Name);
      until FindNext(searchResult) <> 0;

      FindClose(searchResult);

    end;

  CommonDocPDF.MergeFileListFast('myList', Filename);
  FreeAndNil(CommonDocPDF);

End;

In case this helps, AddedFiles always returns 1, it is not incrementing with each file added.
Development environment is Delphi Seattle 10 with Quick PDF library 12.12

Thank you for your help ...