Eigene Fehlermeldung ausgeben

[creeky]

Hallo,

ich versuch eine Verbindung zu einem Server aufzubauen. Ist dieser Server aber nicht erreichbar, wird automatisch eine Fehlermeldung ausgegeben. Wie kann ich nun diese "unterdrücken" und meine eigene Fehlermeldung ausgeben?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket1.Host := '127.0.0.1';
  ClientSocket1.Port := 77;
  ClientSocket1.Active := true;
end;