Mein Ftp client geht so gar nich, wer kann mal helfen?

[FatFranky]

Moin Leute,
versuche grade einen Ftp-client zu bauen, und dachte ich fang mal ganz einfach an.
Erstmal nur ne verbindung aufbauen, und dann sehen wir weiter.
Aber, Verdammt nochmal, es passiert nichts. Auch keine Fehlermeldung, einfach nichts.

Kann mir jemand sagen wo mein Fehler liegt?

Hier mal der code:

Code:

implementation

{$R *.dfm}

procedure TFtpForm.ButtonVerbindenClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  with IdFTP do begin
    Host := EditHost.Text;
    Username := EditUser.Text;
    Password := EditPw.Text;
    Connect;
  end;
end;

procedure TFtpForm.IdFTPConnect(Sender: TObject);
begin
  Beep;
  StatusBar1.SimpleText := 'FTP- Verbindung zu'+ IdFTP.Host +' ist hergestellt';
  Screen.Cursor := crDefault;
end;

procedure TFtpForm.IdFTPConnectionFaild(Sender: TObject);
begin
  Screen.Cursor := crDefault;
  StatusBar1.SimpleText := 'FTP- Verbindung zu'+ IdFTP.Host +' ist fehlgeschlagen';
end;

procedure TFtpForm.IdFTPAuthentificationFaild(Sender: TObject);
  var btn : Integer;
begin
  EditUser.Text := IdFTP.Username;
  EditPw.Text := IdFtp.Password;
  btn := Application.MessageBox('Soll die Anmeldung erneut versucht werden?',
          'Anmeldung beim Server fehlgeschlagen!', 36);
  if btn = 6 then Application.Handle := 1;
end;


procedure TFtpForm.ButtonTrennenClick(Sender: TObject);
begin
  IdFTP.Disconnect;
end;

procedure TFtpForm.IdFTPDiconnect(Sender: TObject);
begin
  Beep;
  StatusBar1.SimpleText := 'FTP- Verbindung zu'+ IdFTP.Host +' wurde getrennt';
  Screen.Cursor := crDefault;
end;

end.

Danke

[FatFranky]

Wie so üblich,
der Fehler sitzt vor dem Bildschirm. :wall:

Grundfunktion ist natürlich gegeben,
nur wenn man

Code:

 Screen.Cursor := crHourGlass;

setzt, und nicht wieder zurück, ist auch klar,
das man sich stundenlang das Stundenglas angucken kann ohne das was passiert.

Asche auf mein Haupt, wollte Eure Zeit nicht verschwenden.