火急！！！！！关于Delphi7中TcpClient接收TcpServer数据的问题。

Question

问题时这样的。首先,TcpClient连接TcpServer；然后在TcpSercer.Accept事件中处理发送的数据。然后，就在TcpServer的这个接收事件中调用ClientSocket.SendLn('END')方法，发送数据到客户端。但是客户端的TcpClient.OnReceive事件并没有触发。源代码如下：-----------------------------Server-------------------------
procedure TForm1.TcpServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin  
  ClientSocket.SendLn('END');
end;-----------------------------Client-------------------------
procedure TForm1.TcpClientReceive(Sender: TObject; Buf: PAnsiChar;
  var DataLen: Integer);
begin
  ShowMessage('测试返回');
end;TcpClient,TcpServer的属性:
TcpClient.BlockModel:=bmBlocking
TcpServer.BlockModel:=bmThreadBlocking;请高手执教。

Answer 1

问题没得到很好的解决。
但是，结贴给分！！！！