如何将Delphi中的TIdTCPClient重新连接功能改写为一个长尾?