Como asignar dirección IP al IdTCPServer, con código

[JDNA]

Holaa amigos, alguien sabe como se puede asignar una dirección IP al IdTPCSever con código, he probado con lo siguiente pero no funciona:

Servidor1.Bindings.Clear;
Servidor1.Bindings.Add;
Servidor1.Bindings.Items[0].IP := edit2.Text;
Servidor1.Bindings.DefaultPort := StrToInt(edit1.text);
Servidor1.Bindings.Items[0].Bind;
Servidor1.Active := True;

Algo está mal?, o se tiene que hacer de otra forma, agradecería mucho si me dijeran como se hace.
Graciasss.

[orodriguezc]

Prueba de la siguiente forma:

Código Delphi [-]
  Servidor1.Bindings.Clear; 
  Servidor1.Bindings.Add;
  Servidor1.Bindings.Items[0].IP := edit2.Text;
  Servidor1.Bindings.Items[0].Port := StrToInt(edit1.text);
  Servidor1.Active := True;