关于telnet的问题。(50分)

我用Delphi7的IdTelnet1做了个测试工具。就是向telnet server发送信息只要server能收到就可以。我写了下面的代码。
IdTelnet1.Connect;
IdTelnet1.SendCmd(tmpStrA, tmpLength);
可以向telnet server发送数据，但程序就死掉了。添加上IdTelnet1.Disconnect;
也不起作用。这是为什么？

没有人知道么？

如何将TIdTelnet设置成非阻塞模式。