IdTCPServer的问题

Question

procedure TForm1.N3Click(Sender: TObject);
var
j :integer;
begin
   IdTCPServer1.Threads.UnlockList;
   for j := 0 to IdTCPServer1.Threads.LockList.Count-1 do
   begin
    TIdPeerThread(IdTCPServer1.Threads.LockList.Items[j]).Connection.DisconnectSocket;
      IdTCPServer1.Threads.UnlockList;
   end;
   IdTCPServer1.Threads.LockList.Clear;
IdTCPServer1.Threads.UnlockList;
   IdTCPServer1.Active:=false;
   N3.Enabled := False;
   N2.Enabled := True;
   RzMemo1.Lines.Add('服务已停止。');
end;以上代码经过多次实验，在有客户端连接的状态下关闭服务没有问题，但在刚启动服务马上关闭服务时会出现屏幕假死，问题主要出现在IdTCPServer1.Threads.LockList.Count这个上，请各位大侠如何解决？ 用的D7 自带的indy

Answer 1

开始应该:
IdTCPServer1.Threads.LockList;建议服务器应该发退出命令给客户端,客户端接收后执行退出动作,服务器也就相应的断开了
而不是服务器直接关闭客户端

Answer 2

看看你的OnDisconnect有没有什么事件 是怎么处理的?