线程中的timer无法工作 (100分)

我给IdTCPClient添加了一个事件，如果连接后，1分钟没有会话就关闭连接。用Timer实现。Timer添加到了IdTCPClient类中。
当我在Form中创建一个IdTCPClient实例，Timer会正常工作（证明我的代码没有错）。
但我在Thread中创建一个IdTCPClient实例，
procedure TmyThread.Execute;
mytcp := TidTcpClient.Create(Application);
Timer将不会工作，Timer事件没有响应。
Why?如何才能让Timer工作。
我尝试过在相应的地方放入Application.processmessage，还是不行。
谢谢。

线程中缺省没有消息队列，无法响应Timer的消息，所以没反映，要么你在线程中加入消息队列，要么使用其他的定时器。具体参考Delphi深度历险。

接受答案了.