[*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.