Hi, ich wollte mir mal einen kleinen FTP Client basteln. Connecten kann ich schon, disconnecten auch aber bei der Auflistung der ORdnerstruktur und der Dateien ist es vorbei.

Quellcode bisher:

Code:
unit StealerFTPParasite;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, FileCtrl;

type
  TfrmMain = class(TForm)
    editFTPHost: TEdit;
    editFTPUsername: TEdit;
    lblFTPHost: TLabel;
    lblFTPUsername: TLabel;
    editFTPPassword: TEdit;
    lblFTPPassword: TLabel;
    btnConnect: TButton;
    btnDisconnect: TButton;
    IdFTP1: TIdFTP;
    DirectoryListBox1: TDirectoryListBox;
    procedure btnConnectClick(Sender: TObject);
    procedure btnDisconnectClick(Sender: TObject);
    procedure IdFTP1Connected(Sender: TObject);
    procedure IdFTP1Disconnected(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnConnectClick(Sender: TObject);
begin
  IdFTP1.Host := editFTPHost.Text;
  IdFTP1.UserName := editFTPUsername.Text;
  IdFTP1.Password := editFTPPassword.Text;
  IdFTP1.Connect;
end;

procedure TfrmMain.btnDisconnectClick(Sender: TObject);
begin
  if IdFTP1.Connected = False then
    MessageBox(Self.Handle,'Not connected to FTP Server','Could not disconnect from FTP',mrNone)
  else
    begin
      IdFTP1.Quit;
    end;
end;

procedure TfrmMain.IdFTP1Connected(Sender: TObject);
begin
showmessage('Connected to ' + editFTPHost.Text);
IdFTP1.List(DirectoryListBox1.Items,'*.*',FALSE);
end;

procedure TfrmMain.IdFTP1Disconnected(Sender: TObject);
begin
showmessage('Disconnected from ' + editFTPHost.Text)
end;

end.
Wenn ich es so ausführe, wie ich es hier gepostet habe, kommt ein Error:

Please login with USER and PASS
Wenn ich die Zeile "IdFTP1.List(DirectoryListBox1.Items,'*.*',FALSE); " aus dem Quellcode entferne, verschwindet der Error.

Was zum Teufel ist das? Ich logge mich doch mit Username und Passwort ein... Wer kann helfen?