delphi 7的中 TIdTCPClient组件ReadLn超时不能用如何解决

delphi 7的中 TIdTCPClient组件ReadLn超时不能用怎么解决？
delphi 7的中TCP 编程的 TIdTCPClient 组件 ReadLn 方法的超时参数无效怎么解决？
大家在delphi 7中 TCP 编程一般用什么控件比较好？推荐的时候能不能提供些使用介绍和源码？

------解决方案--------------------
可以考虑ICS(Internet Component Suite)控件，这个控件是免费的
其中有个WSocket，挺好的，我正在用
好像也支持D7吧，有DEMO，自己去研究吧
------解决方案--------------------
给你个SVN地址吧
http://svn.overbyte.be:8443/svn/ics/trunk
用户：ics
密码：ics
------解决方案--------------------
我都这样用的，从来没问题，不过没有用reandln,用的是ReadString

tcpClt.Port := f_ini.ReadInteger('public','port',6000);
tcpClt.Host := f_ini.ReadString('public','ip','127.0.0.1');
PrintMsg(richNote, ' 连接服务器:'+tcpClt.Host+' '+IntToStr(tcpClt.Port));

//连接
tcpClt.Connect(10000);
tcpClt.ReadTimeout := 10000;

//发送数据
tcpClt.Write(buff);
//接收返回数据
buff := tcpClt.ReadString(2);
buff := buff + tcpClt.ReadString(ord(buff[1])*256 + ord(buff[2]));
buff := Byte2Hex(buff);