[Snake22]

уже разобрался. циклом меняю для каждого соединения
for i:=0 to IdHTTPServer1.Bindings.Count-1 do
IdHTTPServer1.Bindings.Items[i].Port:=PortN.Value;
и еще на всякий IdHTTPServer1.Bindings.DefaultPort:=PortN.Value;