[jachguate]

Pues igual...

suponiendo que tenes en un TStringList todos los IP's por los que queres escuchar:

Código Delphi [-]
for i := 0 to direcciones.count - 1 do
  with IdTCPServer.Bindings.Add do
    begin
      IP:=direcciones[i];
      port:=3000;
    end;

Hasta luego.