Ordnername in listbox aufzählen

[EvilDragon]

habs wie folgend gelößt:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var x,zahl : Integer;
begin
  dir := ExtractFilepath(ParamStr(0))+'mp3\eigene_mp3s';  //direkter Pfad vom Programm
  for x := 01 to 99 do begin
    zahl := x;
    verzeichnis[x] := dir+'\'+IntToStr(zahl);
    if DirectoryExists(verzeichnis[zahl]) then
      Edit1.Text := verzeichnis[zahl]
    else
      ForceDirectories(verzeichnis[zahl]);
      exit;
  end;
end;

ich glaub das macht das was ich denke *g*
also folgendes:

schaut ob ordner 01 ist wenn nicht dann erstellt er und schreibt das ergebnis ins edit
leider das mit listfeld bekomme ich net hin...

hat jemand vielleicht ein beispielcode??? (was ich mom hab reicht für meine bedürfnisse)

danke