Indy 10: TIdTCPServer - IP Adresse des Clients rausbekommen

[Brainshock]

Hallo,

ich beschäftige mich gerade mit Indy 10 und scheitere schon bei den ersten Demos, Beispielen.
Die Indy 10 eigenen Demos scheinen mit der aktuellen Version nicht zu mehr zu funktionieren.

Ich möchte eigentlich nur im OnConnect des TIdTCPServer die IP Adresse des Clients rausbekommen, der sich mit dem Server verbunden hat.
Wo finde ich die passende Eigenschaft im übergebenen AContext?

Danke,

[Brainshock]

Durch Zufall am Ende in der Indy Knowlege Base selbst gefunden:

http://www.indyproject.org/KB/peerip.htm

Delphi-Quellcode:

 
// For Indy 10
uses 
  IdContext, IdIOHandlerSocket; 

procedure TfrmMain.TCPServerConnect(AContext: TIdContext);
var 
  PeerIP : String;
begin
  PeerIP := AContext.Connection.Socket.Binding.PeerIP;
end;

Gruß,