[LIGERO]

Buenas.
Necesito comunicar con una máquina que me contesta al puerto por donde le envío la trama.
Lo he probado por UDP y funciona, pero necesito que sea TCP.
He capturado el puerto por donde el TCPClient manda la trama, paro el cliente antes de activar el TCPServer, asigno al servidor el puerto por el que manda el Cliente, desde Wireshark veo que la máquina me contesta, por lo que hay conexión, pero no consigo que el procedimiento Execute reciba los datos.
Adjunto el código por si alguien puede decirme algo.
Gracias

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdContext, IdCustomTCPServer,
  IdTCPServer, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    TCPCliente: TIdTCPClient;
    TCPServidor: TIdTCPServer;
    Button1: TButton;
    IP: TEdit;
    Puerto: TEdit;
    procedure TCPServidorExecute(AContext: TIdContext);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var Cadaux : TStringList;
begin
  Cadaux := TStringList.Create;

  TCPCliente.Host := IP.Text;
  TCPCliente.Port := StrToIntDef(Puerto.Text, 0 );

  if not TCPCLiente.Connected then
    TCPCliente.Connect;
  Cadaux.Text := #27+Memo1.Text+#27'%-12345X';
  Cadaux.Text := Copy(Cadaux.Text,0,length(Cadaux.Text)-2);
  TCPCliente.Socket.WriteLn(Cadaux.Text);
  TCPCliente.DisConnect;
  TCPServidor.DefaultPort := TCPCliente.Socket.Binding.Port;
  TCPServidor.Active := true;
end;

procedure TForm1.TCPServidorExecute(AContext: TIdContext);
var
  sMensaje: String;
begin
  sMensaje := AContext.Connection.Socket.ReadLn;
  Memo2.Lines.Add( 'De: ' + AContext.Binding.PeerIP );
  Memo2.Lines.Add( 'Mensaje: ' + sMensaje );
end;

end.