Hola, DarkByte.
A ver si te puede servir esto:
Código Delphi
[-] uses IdIOHandlerSocket;
procedure TfrmMain.TCPServerConnect(AThread: TIdPeerThread);
var PeerIP : String;
begin
PeerIP := AThread.Connection.Socket.Binding.PeerIP;
end;
La verdad es que no estoy seguro de que sea lo que quieres, ya que no he usado nunca las Indy ni sé como van.
Lo he sacado de
aquí.
Buen viaje.