Alle Ordner auflisten

[SyntaxXx]

Hallo zusammen,
ich habe ein kleines Problem.
Und zwar möchte ich mir in meinem Programm alle Ordner + Unterordner anzeigen lassen.
Doch leider komme ich jetzt nicht weiter.

Ich habe das hier schon gefunden, doch das will nicht so wirklich. http://www.delphipraxis.net/2235-ver...rchsuchen.html

Daher habe ich mich ran gesetzt und das ganze Schritt für Schritt gemacht und bin im Endeffeckt Quasi bei der Lösung, wie sie auch oben steht xD.
Naja jetzt ahbe ich die Procedur zumindest verstanden xD.

Nur eine Sache verstehe ich nicht.
Woher weiß oben die Procedur, wann es keine Unterodner mehr gibt.
Denn genau das ist das Problem was ich habe.

Klar, ich könnte eine Schleife einbauen, die das Ganze so oft wiederholt, wie ich möchte.
Nur das Problem ist, dass ich ja nicht weiß, wie viele Unterordner es gibt.

Ich hatte schon den Ansatz:
var SR : TSearchRec;

Delphi-Quellcode:

repeat
//Hier kommt das ganze Ordnerauslesen
until SR.Name = '';

Nur leider funktioniert das nicht, da SR.Name leider kein '' zurück gibt xD

Nun also meine Frage, wie kann ich es schaffen, dass die Schleife stoppt, wenn es keinen Unterordner mehr gibt?

Danke schonmal.