Conexion con reloj mediante TClientSocket

[adfa]

eduarcol, gracias por tu tiempo.
Las constantes estan bien, porque si lo hago mediante botones fuciona bien, la prueba es en el mismo form deshabilitando el timer y usando los 5 botones (que con esos botones si anda).
Al evento llega, probe con un breakpoint, pero pasan cosas raras al pasar el cs1.active := true; el valor del cs1.active me lo muestra como false a veces, a veces true pero igual no funciona, es decir no llega a ser disparado el evento OnRead del TClientSocket donde el reloj deberia devolver las marcas.