Saber si un puerto esta abierto

[Besto]

Lo puse, y no tengo ni idea de donde falla, voy siguiendo todos los pasos y cuando saco un mensaje de final, me aparecen todos los errores y cuando pongo el clientsocket activo no se me ejecuta el evento onconect.

También pasa una cosa curiosa, yo pongo el clientsocket active:= true, pero cuando cambio la ip antes de cambiar el host compruebo si está activo para si está ponerlo a false y luego cambiar el host, bueno pues aunque en principio debia esta a true, la verdad es que esta a false, ...

No sé si se entiende bien, porque no lo entiendo ni yo...