Mudar cor de shapes em um loop..??

[Adonist]

aí galera.. tudo bom ??

seguinte, to fazendo um programa para controlar um motor de passo

e quando mando ligar o motor ele fica em um loop infinito até que eu mande parar. Fiz isso em units separadas. Até ai beleza..

Agora quiria fazer uma animaçãozinha.. quiria colocar uns shapes, para representar as bobinas do motor.. e queria que nesse LOOP infinito

a cada 12 comanos, ele mudasse a cor do shape para vermelho, depois voltasse para preto.. isso infinitamente.. mais são 4 shapes.

Ou seja, acada 12 passos, teria que ficar um vermelho, e depois preto..

será que alguem tem alguma ideia de como fazer isso ??

espero que possam me ajudar.. valeu

[Visitante]

Como as cores desses shapes devem ser representadas?

ShapeColor := 'vermelho';

Dessa maneira?

Preciso de mais informação para saber como ajudar.

Mostre o que você já conseguiu fazer.