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

本文共计401个文字，预计阅读时间需要2分钟。

我正在编写一个应用程序，它使用TIdTCPClient通过套接字与另一个应用程序通信。我希望应用程序能够尝试连接到某个服务器，直到建立连接（即直接连接到服务器线上）。