Problema al detener Indy TCP Server

[anakin1981]

Hola a tod@s,

Escribo mi primer mensaje para ver si alguien con más sabiduría me puede dar luz sobre este problema. Tengo un programa con un componente IdTCPServer que se inicia y se detiene pulsando botones. A continuación explico la secuencia del error, siempre sin tener ningún cliente conectado en todo momento.

Primero pulso el botón para iniciar el servidor, en el Onclick del botón está:

IdTCPServer.DefaultPort := Puerto
IdTCPServer.Activate := True

Después detengo el servidor, en el Onclick del botón está:

IdTCPServer.Activate := False

Luego cambio el valor de Puerto a otro diferente porque quiero volver a activar el servidor y que escuche en un puerto distinto. Por último inicio el servidor pulsando el botón y se inicia correctamente pero NO está escuchando por el nuevo puerto sino por el antiguo. Se me ocurrió añadir la siguiente línea antes de parar el servidor, y ya funcionaba correctamente, pero me da problemas de violación de acceso al detener el servidor cuando se cierra el programa.

IdTCPServer.Bindings.Clear;
IdTCPServer.Activate := False

Espero vuestra ayudita. Gracias!

P.D.: Tengo Delphi 7 (Build 4.453) e Indy 9.0.4 beta