TIdCmdTCPServer IP-Adresse vom Client rausfinden

[BlueStarHH]

Hallo,

ich nutze einen TIdCmdTCPServer, der verschiedene ComandHandlers besitzt um Kommandos von den Clients auszuführen. In dem folgenden Beispiel wird der Text "Test" an den Client zurückgegeben. Wie kann ich in dieser Procedure die IP vom Client, der die Procedure ausgelößt hat, ermitteln? Danke?

Delphi-Quellcode:

procedure TMainDlg.IdCmdTCPServer1CommandHandlers0Command(ASender: TIdCommand);
begin
  ASender.Context.Connection.iohandler.WriteLnRFC('Test');
end;