FindFirst usw unterschlagen Verzeichnisse

[Jörn]

Ich will ein Prog schreiben das mir alle Verzeichnisse mitsamt Unterverzeichnissen auflistet. Dafür habe ich erst mal getestet, sprich ein Programm geschrieben, das die Verzeichnisse erst mal ohne Unterverzeichnisse auflistet... doch mein Testprog unterschlägt Verzeichnisse! Ich rätsel da schon rum wie ein Blöder!

Habe ein Editfeld mit Namen root (Verzeichnis in welchem gesucht wird) und ein Memofeld namens listenmemo...

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var verzeichnisse: TSearchRec;
begin
if findfirst(root.Text + '*', fadirectory, verzeichnisse) = 0 then
  begin
    listenmemo.Lines.add(verzeichnisse.name);
    repeat
    findnext(verzeichnisse);
    if verzeichnisse.Attr = 16 then
    listenmemo.Lines.add(verzeichnisse.name);
    until findnext(verzeichnisse) <> 0;
  end;
findclose(verzeichnisse);
end;

Vielen Dank schon mal für die Hilfe!
Ich beiss mir bald noch ins Knie wegen so was *gg*