D７(TcpServer/Client)组件编程？？？(50分)

Delphi７，TcpServer、TcpClient组件编程　实现局域网内QQ功能——互相发消息：
TcpClient、TcpServer都用默认的阻塞和线程方式。
１.现在用
　　 if length(memo3.Lines[0]) <> 0 then
begin
s := TcpClient1.Sendln(Memo3.Lines[0]);
if s=-1 then
showmessage('发送失败！')
else
memo1.Lines.Add(Memo3.Lines[0]);
end
else
showmessage('空消息不能发送！');
可以实现客户端给服务器发消息。但是服务器用TcpServer1.Sendln(Memo3.Lines[0]);
时，不能发消息，老是返回-1(发不通)；客户端收不到！？？？

２.TForm1.TcpClient1Disconnect(Sender: TObject);
TForm1.TcpServer1Disconnect(Sender: TObject);
都不能检测到服务器或是客户机的断开！？？？

如果有源码（D７:TCP/IP）的，请发至: Beyond_Lunatic@163.com　另送３００分！！

这个在你的 D7 的安装目录下的 Demos/Internet/NetChat 里面有源代码可供参考

呵呵，
哪个源码编译后不能发消息。。。。。
你要不随便改改发给我，我给你分，呵呵，不过是要Server、Client分开的

已发

我说的是TcpServer、TcpClient组件编程。不要indy啊。。。。。

有大峡告诉我麻？？

接受答案了.