delphi7的indy如何主动断开客户端

Question

    用7里面做的gprs服务器，由于gprs模块有时候会异常断开，但是服务器这边又无法检测到断开，因此，我想让模块再此上线时候，断开先前的那个连接，
TIdPeerThread(Threads.Items[j]).Connection.InputBuffer.Clear;
                        TIdPeerThread(Threads.Items[j]).Connection.DisconnectSocket;
                        TIdPeerThread(Threads.Items[j]).Connection.Disconnect;                        TIdPeerThread(Threads.Items[j]).Terminate;
这个样子代码是执行了，但是好像没法主动断开一个连接，要等好久，才能断开。哪位兄弟帮一下，谢谢了 ！！！

Answer 1

GPRS实在是不稳定，我也遇到类似问题，目前用心跳包+timer断开超时的连接（幸好以前协议里有心跳包）

Answer 2

还可以用tcp的保活机制吧 参考 http://fxh7622.blog.51cto.com/63841/15900

Answer 3

TIdPeerThread(Threads.Items[j]).Connection.Disconnect; 
就可以了，其他不要