Verzeichnisse in Listbox auflisten

[Lamy]

Och nööö - zu früh gefreut

Delphi-Quellcode:

PROCEDURE TForm3.ChangeDir(DirName: STRING);
VAR
  stringliste: TStringList;
  i: Integer;
BEGIN
  Stringliste := TStringList.Create; // Stringliste erzeugen
   splitString('Part1|Part2|Part3', '|'; Stringliste);

  TRY
    IdFTP1.ChangeDir(DirName);
//    IdFTP1.TransferType := ftBinary;
    Form1.Listftpdir.Items.Clear; // Verzeichnisanzeige leeren
    IdFTP1.List(Stringliste);
    FOR i := 1 TO Stringliste.Count DO
      WITH Form1.Listftpdir.Clumns[0] DO
        Caption := Stringliste.Strings[i - 1];
  FINALLY
    Form1.EDftpverzeichnis.Text := IdFTP1.RetrieveCurrentDir; // Aktuelles Verzeichnis in die Combobox zur Verzeichnisauswahl schreiben
    Stringliste.Free;
  END;
END;

Oh mann ich bin so saudumm, ich hab wirklich keinen Schimmer wie das zum Teufel nochmal zu funktionieren hat ...

Mir ist schon klar, dass man "Part1,2" etc. durch irgendwas ersetzen muss aber durch was?