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í


TcpClient1.Sendln('mensaje.......');


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


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.


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]

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