悬赏50分，请教delphi7.0中网络编程问题，望各位高手拉兄弟一把！

Question

初学delphi,问题多多，
现在写一个网络通信程序，用的是TcpServer和TcpClient，客户端的TcpClient1向服务器端的TcpServer发送数据包，可以正常接收，但是在函数
procedure TForm1.TcpServer1Accept(Sender: TObject;ClientSocket:CustomIpClient);里面向客户端发送数据却收不到
，我是用的函数里面的ClientSocket.Sendln('')直接发送，请高手执教。高分相送，在线等！

Answer 1

你可以如下的方式给客户端发回应信息。
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
  AThread.Connection.WriteLn('To Client Message!');
end;