怎样在线程中创建 TIdTCPClient 对象进行连接,该如何解决

怎样在线程中创建 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