Möglichkeit IP Verfügbarkeit zu Überprüfen

[deathwish]

Hey Leute,

ich hab mit Delphi angefangen und bin zurzeit dabei ein kleines Chat Programm zum Üben zu entwickeln....

Jez wollte ich wissen ob mir einer von euch vllt sagen kann wie man Checkt ob mein Server auf der IPort läuft.... ich poste ebn wofür ichs brauch...

Delphi-Quellcode:

procedure TFrmLogin.BtnLoginClick(Sender: TObject);
var
  i : String;
begin

i:= EdNick.Text;

if i<>'' then

  begin
  FrmChat.ClientSocket.Open; // Hier liegt das Problem.. unten mehr
  FrmLogin.Hide;
  FrmChat.ShowModal;
  end
else
  ShowMessage('Bitte Nicknamen Eingeben!');

end;

Also da er ja den Befehl open kriegt versucht er zuzugreifen... doch wen der Server nicht Online ist kommt eine unschöne Fehler Meldung die ich unterbinden will....

Hier was ich meine:

http://img14.imageshack.us/img14/5627/errordelphi.jpg

Hoffe ihr versteht was ich mein und könnt mir helfen...

Ach und mit Exception-Handling gez auch net weil der Fehler ja nicht direkt auftritt...