Client IP-Ausgabe im Server

[albert1985]

N'Abend,

Folgendes:

Ein Client verbindet sich zum Server und ich will nun, dass serverseitig die IP des Client
in eine Memofeld geschrieben wird.

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var 
  inhalt : string;
begin
  inhalt : AContext.Connection.IOHandler;
  with inhalt do
  if ReadLn('TRYCONNECTION') then
  hauptMemo.Lines.Add(client-ip soll hier angezeigt werden+'hat sich verbunden.');
end;

Wie wäre so etwas möglich und wenn es überhaupt möglich ist, wie liese sich das umsetzen ?
Geht das vielleicht auch ohne gesendete Strings und nur mit dem reinen "Verbindungsaufbau" ?

MfG Albert