Obtener la ip del cliente conectado a un IdTCPServer.

[DarkByte]

Saludos, la pregunta parece sencilla, pero no la saco. ¿Cómo puedo obtener la ip del cliente conectado a un TIdTCPServer a través de su evento OnConnect?

Para ser más claro, quiero obtener la ip y ponerla en un memo cuando un cliente se conecte. El ejemplo Chat de las Indy no me vale porque usa un tal TSimpleClient y no se nada de él.

Por cierto... seguramente en 15 días a partir de mañana no me verés ni el pelo