¿Cómo enviar mensajes continuamente con TIdTCPServer?

Necesito crear una aplicación delphi donde, cuando se inicia, el servidor también se inicia y comienza a enviar mensajes de inmediato, pero no he encontrado un ejemplo o tutorial y el manual de Indy de casi 5000 páginas no me deja claro cómo puede hacer esto ...

Respuestas a la pregunta(2)

Su respuesta a la pregunta