如何实现Delphi中的TIdTCPClient模块的重新连接功能?