1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure getDirsFromDir (dir : String; liste : TStrings);
VAR datei : TSearchRec;
    fehler : Integer;
begin
  fehler:=FindFirst(dir+'*.*',faDirectory,datei);
  while fehler = 0 do
  begin
    if datei.Attr and faDirectory <> 0 then
      liste.Add(datei.name);
    fehler:=FindNext(datei);
  end;
  FindClose(datei);
end;