Callback procedure, med en count

Jeg har en callback procedure, som skal find alle filer i en mappe samt undermapper... Det virker .... jeg kan bare ikke få en count til at virker, sådan at den fortæller hvor mange den har.

Jeg har prøvet at sætte en integer uden for, men der bliver ikke skrivet noget i den.

kode:
  .....
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    MaxCountedFiles: Integer;
  public
    { Public declarations }
  end;

var
  SelectDirectoryForm: TSelectDirectoryForm;

implementation

{$R *.dfm}

Procedure FindMaxfiles(aDirectory, aFileSpec: string; const aIncludeSubDir: boolean; aResultCount : Integer);
var
  Found : boolean;
  SearchRec: TSearchRec;
begin
  aDirectory := IncludeTrailingPathDelimiter(aDirectory);
  Found := FindFirst(aDirectory + '*',faAnyFile,SearchRec) = 0;
  try
    while Found do begin
      with SearchRec do
        if (Attr and faDirectory) = faDirectory then begin
          if (Name[1] <> '.') and aIncludeSubDir then
            FindMaxFiles(aDirectory + Name, aFileSpec, aIncludeSubDir, aResultCount);
        end
        else
          if MatchesMask(Name,aFileSpec) then
            Inc(aResultCount,1);

      Found := FindNext(SearchRec) = 0;
    end; // while
  finally
    FindClose(SearchRec);
  end; // try
end;


.....

procedure TSelectDirectoryForm.Button3Click(Sender: TObject);
begin
  selectDirectoryForm.MaxCountedFiles := 0;
  FindMaxfiles(SelectDirectoryForm.DirectoryListBox1.Directory,'*',true,SelectDirectoryForm.MaxCountedFiles);

  button3.Caption := inttostr( selectDirectoryForm.MaxCountedFiles );
end;


kode slut

Hvorfor vil den ikke tælle de filer, som den finder ?