Dateien eines Verzeichnis auflisten

[delphi-n]

hi!
Ich wollte hiermit die Dateien eines Verzeichnis auflisten:

Delphi-Quellcode:

procedure ListFileDir(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;



...

ListFileDir(Edit1.Text, Form3.ListBox1.Items);

...

Jedoch finde ich bei "C:\Dokumente und Einstellungen\XXXXX\Eigene Dateien" nur "Eigene Dateien" in der Liste, obwohl ich Dateien in dem Ordner habe.

Und in "C:\Dokumente und Einstellungen\All Users\Dokumente" befindet sich in der Liste "Dokumente".


Habt ihr eine Idee, woran das liegt? (oder eine andere Variante)


Vielen Dank