Schleifen Abbruch verhindern

[Aljoscha]

Also entweder habe ich etwas falsch gemacht, oder ich kann den Fehler mit try nicht abfangen

Delphi-Quellcode:

for i:=0 to Threat1.Count do
with IdFTP1 do try
ShowMessage(inttostr(i));
  User := 'Anonymous';
  Password := '[e-mail]';
  Host := Threat1[i];
  Connect;
finally end;

Wenn jetzt keine Anonyme anmeldung möglich ist kommt eine Fehlermeldung:
530 Login incorrect
Diese würde ich gerne verhindern, bei Sockets habe ich solche Fehler mit dem OnError Ereignis abgefangen:

Delphi-Quellcode:

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
 if ErrorEvent=eeConnect then begin
    ErrorCode:=0;
  end;
end;

Gibt es so etwas nicht für IdFTP?
Außerdem habe ich das Problem das er eben aus der Schleife springt, also nur einmal versuht zu connecten, nicht wie in der Schleife vorgesehen mehrere male...