1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

ClientSocket.Address:=ServerInfo.IP_Adresse;
ClientSocket.Port:=ServerInfo.Port;
ClientSocket.Open;
If ClientSocket.Socket.Connected Then
                                 Begin
                                 ClientSocket.Close;
                                 Exit;
                                 End;
ServerStatus:=True;
Schliessen.Enabled:=True;
Verbinden.Enabled:=False;
BSenden.Enabled:=True;					

1:
2:
3:
4:
5:

If ClientSocket.Socket.Connected Then
                                 Begin
                                 ClientSocket.Close;
                                 Exit;
                                 End;