IdTcpClient怎么等待IdTcpServer开启

IdTcpClient如何等待IdTcpServer开启
如何让IdTcpClient不停的Connect,直到IdTcpServer开启.目前的情况,即使把IdTcpClient.Connec放在循环中,只要IdTCPServer没有提前开启,这个Connect就只能执行一次.

[解决办法]
while true do begin
try
IdTcpClient1.Connect;
break;
except
end;

end;
[解决办法]
我放在线程中每隔5秒连一次