GGG, explorando un poco ya he dado con la solusion. Seria mas menos algo asi.
Declarando vIP como una variable global, hariamos lo siguiente en el evento OnConnect del idTCPServer.
Código Delphi
[-]
vIP := AThread.Connection.Socket.Binding.PeerIP;
Despues en cualquier otro evento.
Asi lo he conseguido hacer yo.
Ojo, si haces esto no les funcionara.
Código Delphi
[-]
Caption := AThread.Connection.Socket.Binding.PeerIP;
Alguien puede decirme por que?
Aunque creo saber la razon pero bueno !!