IP-Adresse auf erreichbarkeit (FTP) überprüfen ?

[newuser01]

ich verbinde mich folgendermaßen über FTP

Delphi-Quellcode:

IdFTP1 := TIdFTP.Create(self);
IdFTP1.Username := 'username';
IdFTP1.Password := 'passwort';
IdFTP1.Host := e_IP.Text;
IdFTP1.Connect;

Wenn der Host also die IP nicht stimmt und eine verbindung nicht möglich ist, wollte ich das mit (Try Except) abfangen.

Delphi-Quellcode:

  IdFTP1 := TIdFTP.Create(self);
  IdFTP1.Username := 'username';
  IdFTP1.Password := 'passwort';
  IdFTP1.Host := e_IP.Text;

try

  IdFTP1.Connect;

except
MessageDlg('Fehler', mtWarning, [mbOK], 0);
end;

Leider funktioniert dies nicht so richtig, das Programm hägt sich auf und erst nach einer weile kommt die (Except Fehlermeldung). Gibt es nicht eine bessere Lösung, wie erreichbarkeit der IP über ein Ping oder sonstiges prüfen?