Beim Connecten Fehler abfangen

[TurboMartin]

Probiers mal mit try... except... end.

Delphi-Quellcode:

var
  Socket: TClientSocket; 
begin
  try
    //Initialisierung des Objekts
    Socket := TClientSocket.Create(Form1);

    //Zuweisen eines Portes zB 10024
    Socket.Port := 10024;

    //Folgende Zeile bräuchte ein TClientSocket noch:
    Socket.Host := '127.0.0.1';
     
    //In den Listening-Status gehen bzw connecten
    Socket.Open;
  except
    //hier Fehlerbehandlung einfügen
  end;
end;