Indy Ip Ermitteln

[-lx-]

Eine Frage dazu: Wie kann der TIdTCPServer (Indy10) seine eigene IP ermitteln, sobald er beim aufrufen des programms gestratt wird.
Also nur gestratet wird - ohne jegliche ein- oder ausgehende Verbindungen.

Delphi-Quellcode:

Memo1.Lines.Add(AContext.Binding.IP) ;       // IP Adresse des Servers
Memo1.Lines.Add(IntToStr(AContext.Binding.PeerPort)) ;

So kann ich bei TIdTCPServer Eriegnissen die IP und en Port des Servers herausbekommen.
Jedoch will ich dass IP und Port des Servers sofort beim öffnen es programms angezeigt werden.

Wie kann ich das bsp. im OnCreate -Event des Hauptformulars einbetten?


Wieso wird mit " AContext.Binding.PeerPort " nicht der richtige Port angeiegt? Bei mir zeigt er 2011 an jedoch wurde 50 005 eingetragen !?




mfg
Cya