停止服务器的时候出现‘Terminate Thread Timout’异常

Question

我在停止服务器的时候出现‘Terminate Thread Timout’异常，这是怎么回事呢？
我是这样调用线程的：
TIdPeer(Thread.Items[0]).WritBuffer(16进制的命令首地址,命令长度);
TIdPeer(Thread.Items[0]).Readuffer(接收数据数组的首地址,命令长度);
其中
在此之前Thread := IdTcpServer1.Threads.LockList;

Answer 1

设置一下Thread.Items[0].onTerminate:=TerminateThread;procedure xxx.TerminateThread(sender:TObject);
var
  TheList:TThreadList;
begin
     TheList:=Thread.LockList;
     TheList.remove(Sender);
     TheList.UnlockList;
end;