indyftp: Programm hängt sich auf?

[Zero1]

ne frage *g*

Delphi-Quellcode:

with idFTP1 do
  begin
    if Connected then Disconnect();
    Host := ip;
    Port := StrToIntDef(aport, 21);
    Username := acc;
    Password := pwd;
    try
    Connect;
   ftplist.Items[i].SubItems[3] := 'Online Ftp Hotmail';
    except
   ftplist.Items[i].SubItems[3] := 'Offline Ftp Hotmail';
    end;
    idftp1.disconnect;

so wäre der clickbutton *g

und keine ahnung ob schon da was falsch ist

lg.