Indy10: Neuen Port auf Clientseite ermitteln?

[McMorton]

Hi.
Ich habe mal wieder eine Frage zu Indy 10
Wenn sich ein Client über einen bestimmten Port mit einem Server verbindet,
dann handelnd die beiden ja automatisch einen neuen Port aus.
Diesen kann man ja beim Server im OnConnect Event so abfragen:

Delphi-Quellcode:

procedure TServer.IndyConnect(aContext: TIdContext);
var
  aPort: Integer;
begin
  //Lies Port, über den sich verbunden wurde
  aPort := aContext.Binding.PeerPort;
end;

Wie kriege ich beim Client den neuen Port raus?
Dort gibt es die TIdContext Klasse nicht.
Das OnConenct Event sieht so aus:
procedure TClient.IndyConnected(Sender: TObject); Ich habe schon alles mögliche probiert, aber egal welches Port-Property ich vom IndyClient auslese, ich lese immer nur den ursprünglichen Port, über den die Verbindung erstellt wurde.