FTP Client

[Lamy]

So langsam wirds mir peinlich...

Ich steh da wie'n Ochs vorm Berg, so weit hab ichs nu übertragen:

Delphi-Quellcode:

PROCEDURE TForm3.Ftpverzeichnis(DirName: STRING);
VAR
  stringliste: TStringList;
  i: Integer;
BEGIN
  Stringliste := TStringList.Create; // Stringliste erzeugen
  TRY
    IdFTP1.ChangeDir(DirName);
    Form1.EDftpverzeichnis.Text := IdFTP1.RetrieveCurrentDir; // Aktuelles Verzeichnis in die Combobox zur Verzeichnisauswahl schreiben

    Form1.Listftpdir.Items.Clear; // Verzeichnisanzeige leeren
    IdFTP1.List(Stringliste);
    Form1.Listftpdir.Items.Assign(Stringliste);
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
   

 FOR i := 1 TO Form1.Listftpdir.Items.Count DO
      WITH Form1.Listftpdir.Items.Add DO
        Caption := Stringliste.Strings[i - 1];


////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

  FINALLY
    Stringliste.Free;
  END;

END;

So hab ichs eingebunden:

Delphi-Quellcode:

      IF Idftp1.Connected THEN
        ChangeDir(idftp1.RetrieveCurrentDir);

Watt mach ich da mal wieder falsch?
*nix kapiert*
Was macht dein Code eigentlich GENAU?