tidtcpserver shutdown problem

[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