Ordnerausleseproblem

[zebrafalke]

Hallo,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
begin
SelectDirectory('Wählen Sie einen Ordner aus:','', Dir);
Listbox1.Items.Clear;

  FindFirst(ExtractFilePath(Dir) + '*.*', faAnyFile, SearchRec);
  repeat
    ListBox1.items.add(searchrec.Name);
  until FindNext(searchrec) <> 0;
  findclose(searchrec);
end;

damit sollte er eigentlich einen wählbaren Ordner auslesen und die Dateien darin in einer Listbox darstellen.
In der Listbox befinden sich dann merkwürdigerweise aber nicht die Dateien des ausgewählten Ordners sondern die des Ordners, welcher eine Ebene höher als der gewählte ist....Hat irgendjemand ne idee?