IdTcpClient1怎么判断用户没有发信息过来？？

Question

我在用Timer1做接收程序时。怎么样判断用户是用发信息过来。当没发信息过来时，我们就不做下面的操作。代码如下：
 procedure TForm1.Timer1Timer(Sender: TObject);
var
  Com,
  Msg : String;
begin
  if not IdTcpClient1.Connected then
    exit;  Msg := IdTCPClient1.ReadLn('', 5);end;
使用这段代码为死在那里为什么啊！！

Answer 1

没有else啊。为什么不写呢，if not事件写了应该写肯定的吧！

Answer 2

http://www.513soft.net:83/qlj/trans.rar