tidtcpserver shutdown problem

[nebukadnezzar]

wenn ich den server per server.active:=false stoppe bekomme
ich immer ein "Thread read timeout" (o.ä) -
wie kann ich das verhindern,
so das der richtig den server stoppt und alle noch verbundenen Clients disconnected.

[nebukadnezzar]

also ich hab versucht einfach mal alle clients versucht zu disconnecten
mit folgendendem code:

Delphi-Quellcode:

Procedure TfrmServer.Disconnectall;
var i:integer;
Begin
    try 
     with server.Threads.LockList do
     For i:=0 to count -1 do
      tidpeerthread(Items[i]).connection.Disconnect;
    finally
      server.threads.unlocklist;
    end;
End;

bekomme bei allein dieser Procedure schon ein Read Timeout!
und der ondisconnect event funzt auch net