Verzechniss: alle beinhaltenden Ordner ermitteln?

[LuCSteR]

Delphi-Quellcode:

//Ordnernamen in einem Verzeichnis ermitteln
procedure ListSubDirs(Dir: string; var sList: TStrings);
begin
  Dir:=TempDownloadDir
  ChangeCurrentDir(Dir);
  FindFirst(GetCurrentDir, faDirectory, sList);
  FindNext(sList);
end;

So siehts bis jetzt aus. In dem Fall findet er nur den ersten Ordner und den folgenden. So möchte ich es aber haben:

Delphi-Quellcode:

//Ordnernamen in einem Verzeichnis ermitteln
procedure ListSubDirs(Dir: string; var sList: TStrings);
begin
  Dir:=TempDownloadDir
  ChangeCurrentDir(Dir);
  FindFirst(GetCurrentDir, faDirectory, sList);
  while {letzter Ordner nicht gefunden} do FindNext(sList);
end;

Wie könnte ich den letzten Ordner ermitteln? Halt diese Schleife zum Ende zwingen?
Und ich verstehe immer noch nicht was ich mit den Longint-Werten anstellen soll? Was sagen die aus?