1:
2:
3:
4:
5:
6:
7:
8:

...
        try
           ClientSocket1.Address := ip;
           ClientSocket1.Active := true;
        except
           ShowMessage('Fehler!');
        end;
...					

1:
2:
3:
4:
5:
6:

procedure TForm1.ClientSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
        ShowMessage(IntToStr(ErrorCode));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure OnError(Sender: TObject; E: Exception);
begin
  Main.MemoDebug.Lines.Add(E.Message);
end;

procedure TMain.FormCreate(Sender: TObject);
begin
  Application.OnException := OnError;
end;