Alle Dateien auflisten funktioniert nur manchmal

[gee21]

Hallo.

Ich habe ein Problem. Ich versuche alle Dateien eines Verzeichnisses aufzulisten (inkl Unterverzeichnisse)

Eigentlich klappt es ganz gut. Aber bei gewissen Verzeichnissen, wird nur ein Bruchteil aller Dateien aufgelistet.

Weis jemand von euch warum dies manchmal klappt und manchmal nicht?

Delphi-Quellcode:

   
procedure DateienAuflisten(Pfad: string; DateiListe: TStrings; Rekursiv: Boolean = true; Suchmaske: string = '*');
var
  SR1, SR2: TSearchRec;
begin
  if Pfad[Length(Pfad)] <> '\'
  then Pfad := Pfad + '\';
  if FindFirst(Pfad + Suchmaske, faAnyFile, SR1) = 0
  then begin
    repeat
      if (SR1.Attr <> faDirectory)
      then DateiListe.Add(Pfad+SR1.Name);
    until FindNext(SR1) <> 0;
    FindClose(SR1);
  end;
  if Rekursiv then begin
    if FindFirst(Pfad+'*', faAnyFile, SR2) = 0
    then begin
      repeat
        if (SR2.Attr = faDirectory) and (SR2.Name <> '.') and (SR2.Name <> '..')
        then DateienAuflisten(Pfad+SR2.Name, DateiListe, true);
      until FindNext(SR2) <> 0;
      FindClose(SR2);
    end;
  end;
end;

DateienAuflisten(ExtractFilePath(Application.Exename)+'AA\'+inttostr(combobox2.ItemIndex)+'\res_mods',memo1.lines,true,'*.*');

Liegt es evt an den Dateien selbst? (Beispiel Dateien im Anhang)

Besten Dank schon jetzt