抛砖引玉，关于tidtcpserver的active:=false时抛出Thread Terminate Timeout异常，小弟的解决办法，请各位高手指正！

最近一个通讯项目中因为偷懒使用了TIdTcpServer控件，噩梦就开始了
小弟的编程环境是Delphi7，使用的是它自带的TIdTcpServer,估计版本比较低。所以，当服务器启动后，如果在有客服端连接的情况下，关闭服务器（Active:=false)时，服务器抛出"Terminate Thread Timeout."异常。从而使得TIdTcpServer根本无法关闭。网上解决办法大致相同 小弟的编程环