Это в AContext.Binding.Port
.
Протестировано с помощью следующего в обработчике CommandGet для IdHTTPServer в Delphi 10.3.3:
AResponseInfo.ContentText := '<!DOCTYPE html><html lang="en"> +
'<head><title>A Test Response</title></head>' +
'<body>Target port: ' + IntToStr(AContext.Binding.Port) +
'</body></html>';