怎样在线程中创建 TIdTCPClient 对象进行连接
我下面的测试代码，connect过程会出现异常，无法连接。
是不是在线程中创建连接，需要用什么初始化一样的？

procedure TThreadTCP.Execute;
begin
while not Terminated do begin
TCPClient:= TIdTCPClient.Create(nil);
try
TCPClient.Host:= '127.0.0.1 ';
TCPClient.Port:= 8090;
TCPClient.OnDisconnected:= OnTCPDisconnected;
TCPClient.Connect(5000);
if TCPClient.Connected then begin
//....
end;
if not Terminated then Suspend;
finally
TCPClient.Free;
end;
end;
end;

[解决办法]
什么异常？？？
另外，你连接的是本机IP，本机上server开了吗？？
另外，尽量不要用127这个，就是本机也用本来的IP