TcpClient y TcpServer

[*Caro*]

Hola a todos

Estoy haciendo mis pruebitas con los componentes TcpClient y TcpServer y me he encontrado con un problema, les cuento:

Cuando envío un mensaje a mi app servidor lo hago así

Código Delphi [-]
 
  TcpClient1.Sendln('mensaje.......');

y para recibir en mi app servidor utilizo el evento OnAccept del TcpServer

Código Delphi [-]
procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
 Mensaje : String;
begin
  Mensaje := ClientSocket.Receiveln;
  ...............................
  //Envío respuesta al cliente
  ClientSocket.Sendln('Respuesta');
end;

Recibo bien el mensaje de mi cliente, pero al mardarle la respuesta del servidor al cliente no recibo, no me sale ningún error. Esto es lo que tengo para recibir respuesta en mi cliente, en el evento OnReceive.

Código Delphi [-]
procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
  var DataLen: Integer);
begin
  Respuesta := TcpClient1.Receiveln; 
end;

Me pueden decir que estoy haciendo mal por favor.

Saluditos y que tengan un bonito día.

[[cHackAll]]

Código Delphi [-]
procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar; var DataLen: Integer);
begin
 MessageBox(0, Buf, nil, 0); // Talvez?
end;

[*Caro*]

Muchas gracias por responder Chackall, me olvide decir que hice la prueba también con Buf. No entra al evento OnReceive, es como si el servidor no le mandara nada.

Hice la prueba también con TcpServer1.Sendln('.....'), pero nada ademas que tendría que ser con ClientSocket ya que es el cliente que le ha mandado el mensaje.

Saluditos