FindFirst/FindNext -> findet Dateien nicht!

[F.W.]

Ich habe folgenden Source:

Delphi-Quellcode:

procedure DateiListe(Pfad, Name: String; SubDirs: Boolean; 
  Attr: Integer; Ausgabe: TStrings); 
var 
F1, F2: TSearchRec; 
A: Char; 
begin 
Pfad := SetPfad(Pfad, True); 
if FindFirst(Pfad+Name, Attr, F1) = 0 then begin 
    if (F1.Name <> '.') and (F1.Name <> '..') then begin 
       Case F1.Attr of 
         faDirectory : A := '+'; 
         faHidden    : A := '#'; 
         faArchive   : A := '<'; 
         faReadOnly  : A := '-'; 
         faSysFile   : A := '$'; 
         faVolumeID  : A := '='; 
         faAnyFile   : A := '/'; 
       end; 

       if A > '' then 
          Ausgabe.Add(A+Pfad+F1.Name); 

//       if ((F1.Attr and faDirectory) = faDirectory) and (SubDirs) then 
          DateiListe(Pfad+SetPfad(F1.Name, True), Name, SubDirs, Attr, Ausgabe); 
    end; 
    While FindNext(F1) = 0 do begin 
        if (F1.Name <> '.') and (F1.Name <> '..') then begin 
           Case F1.Attr of 
             faDirectory : A := '+'; 
             faHidden    : A := '#'; 
             faArchive   : A := '<'; 
             faReadOnly  : A := '-'; 
             faSysFile   : A := '$'; 
             faVolumeID  : A := '='; 
             faAnyFile   : A := '/'; 
           end; 

           if A > '' then 
              Ausgabe.Add(A+Pfad+F1.Name); 

//       if ((F1.Attr and faDirectory) = faDirectory) and (SubDirs) then 
              DateiListe(Pfad+SetPfad(F1.Name, True), Name, SubDirs, Attr, Ausgabe); 
        end; 
    end; 

end; 
end;

Warum werden die Dateien im Ordner Cookies nicht angezeigt? Selbst Versteckte Dateien zeigt er, die meiner Meinung nach einen höheren Sicherheitsstatus haben, als die im Ordner Cookies!