Chat Nickliste fehlerhaft

[luckys41]

Guten Tag,

Beim Server im OnClientdisconnect steht :

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
listbox1.Items.Clear;
 disconnect.click;
   ServerSocket1.Active := false;

  ServerSocket1.Active := true;
  disconnect.click;
end;

Und im Client

Delphi-Quellcode:

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
ClientSocket1.Active := false;

timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (ClientSocket1.Socket.Connected = false) then begin

ClientSocket1.Active := true;

end

else begin

timer1.Enabled := false;
end;

Wenn jetzt der Client das Programm über den Taskmanager schließt kommt der Fehler beim Server
---------------------------
Project1
---------------------------
Asynchronous socket error 10053.
---------------------------
OK
---------------------------

Und der User bleibt noch in der Liste obwohl das Programm geschlossen wurde.

Wie kann ich diese Fehler beheben? Hat evtl jemand einen Code Schnipsel?

Mit freundlichen Grüßen,
luckys41