Unterordner auslesen

[S4SH1981]

Hallo zusammen,

ich lese mit folgendem Code das Arbeitsverzeichnis meines Programmes aus.

Delphi-Quellcode:

function GetApplicationDirectory: string;
begin
  Result := ExtractFilePath(ParamStr(0));
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  getapplicationdirectory;
  shelltreeview1.Root := getapplicationdirectory;
end;

In diesem Ordner befinden sich dazu noch Unterordner.

Ich möchte jetzt nun in einer Combobox die Unterordner auslesen, weiß aber nicht wie ich das simpel anstelle.
Bitte daher um eure Hilfe.

Gruß S4SH