Pascal/Turbo Pascal - Como poner un texto en modo de parpadeo

Hola a todos!! Queria saber como puedo hacer que un texto me parpadee? Que sentencia o variable tengo que usar? Si me dan un ejemplo lo mas entendible posible se los agradeceria. Saludos!

Ejemplo:

De hecho solo tienes que sumarle 16 o 128 a cualquier color

por ejemplo

Textcolor(1+16);
write('Prueba de color');

o de igual forma

textcolor(1+128);
write('Prueba de color');

asi con todos los colores, del 1 al 16

otra forma mas decente es agregar la constante predefinida Blink que vale 128 asi el ejemplo anterior quedaria

Textcolor(1+blink);
write('Prueba de color');

Otro codigo muy piola que podes usar(y es el que mas te recomiendo) es por ejemplo este:

Te digo que te conviene usar mas este codigo porque vos podes sicronizar la frecuencia en la que el texto titila y ademas si prestas atencion el texto va a titilar con la ventana del dos minimizada(refiriendonos a windows) o con la ventana del dos maximizada (alt+intro).