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

procedure Tform1.bsvcontrClick(Sender: TObject);
begin
clientsock.Port:=629;
clientsock.Host:='127.0.0.1';
clientsock.Active:=true;
clientsock.open;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure Tform1.bsvcontrClick(Sender: TObject);
begin
if serversock.Active then
begin
        bsvcontr.caption:='Server ist offline';
        serversock.active:=false;
        serversock.socket.close;
end else begin
        bsvcontr.caption:='Server ist online';
        serversock.Port:=629;
        serversock.active:=true;
        serversock.Open;

end;
end;

procedure Tform1.serversockClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
  var rec1:iprec;
  z:integer;
  begin
  Socket.ReceiveBuf(rec1,sizeof(rec1));
  z:=1;
  //serversock.socket.ActiveConnections;
  stringgrid.cells[z,1]:=rec1.clientip;
  stringgrid.cells[z,2]:=rec1.clienthost;
end;					

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

if serversock.Active then 
begin 
        bsvcontr.caption:='Server ist offline'; 
        serversock.active:=false; 
        serversock.socket.close; 
end else begin 
        bsvcontr.caption:='Server ist online'; 
...