Foros Club Delphi - TCP cliente/servidor

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

Código:

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.