TCP cliente/servidor

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

[Neftali [Germán.Estévez]]

En el FTP del club hay varios ejemplos con código sobre cliente/servidor.
https://terawiki.clubdelphi.com/Delp...nternet_redes/

Échales un vistazo a ver si te aclaran algo y si con ellos puedes conectar.

A parte de eso, revisa que alguien (antivirus, firewall, ...) no te esté cortando las conexiones.

[LIGERO]

Estoy utilizando Indy y en los ejemplos lo que hay de Indy no son de TCP
Hay otros que utilizan la librería TCPSocket, pero en mi Delphi no la tengo.