SocketServer - SocketClient problem

[XHelp]

Hallo!
Ich habe eine SocketServer-SocketClient anwendung (internetzähler für einen computerclub).
An dem hauptrechner wird der Server installiert und an den benutzer pcs wird dann der client installiert. Wenn die benutzer pcs eingeschaltet werden verbinden sie sich mit dem server.

Wenn man aber den benutzer pc runterfährt, kriegt der server 2 fehlermeldungen, siehe anhang (erst die 1 und nach ein paar sekunden die 2).
Bei dem client steht OnFormDestroy:

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  CS1.Active:=false;
end;

Das muss doch eigentlich klappen. Bei anderen Socket programmen hat es bei mir auch geklappt.
Weiss jemand woran es liegt und wie man das weg machen kann?