can i make server?

[shs]

i did that and there's no more error message but it's not fully disconnected
if the server sends the message the client still can get message

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button3Click(Sender: TObject);
2. begin
3.   ListenerSocket.closesocket;
4.   listenersocket.free;
5.   timer2.enabled:=false;
6.   timer1.enabled:=false;
7.   button3.enabled:=false;
8.   button1.enabled:=true;
9. end;                        

[rvk]

You should close and free the ListenerSocket last in the procedure for good form. The timer won't run inside the procedure but it's cleaner to free them last.

The reason you can still communicate is because the Connections-sockets themselves (the array) are still connected. You only shut down the listening for NEW connections. If you want to close down all sockets you also need to clean up the connection-socket array.

[shs]

thank you it works now
so it's better to use thread instead of timer?