[matabyte]

¿No hay ningún evento TimeOut para el connect del TSocket?

Ten en cuenta que realizar un ping no es el método más adecuado, ya que la mayoría de los routers y firewalls impiden los pings, con lo que te dará que la IP no está activa.