Control Timer

[[Delphius]]

Hola JoseFco,
Yo diría que se sobra un Timer. Tranquilamente se puede hacer con uno sólo.

La idea es cambiar el color a cada cierto tiempo, no necesariamente iguales ¿no?
Lo que yo haría es que en el evento OnTimer se disponga de una sentencia condicional y en base a ello se tome tanto el tiempo y se cambie el color.
El truco está en tener una variable bandera que nos determine si hacer una y otra cosa:

Código Delphi [-]
if EsRojo
   then begin
          shape.Brush.Color := clRed
          // tomamos el tiempo para el del otro color
          Timer1.interval := ...
          end
   else begin
         shape.Brush.Color := ...
         // tomamemos el tiempo para el color rojo
        Timer1.interval := ....
        end;

// cambiamos la condición:
EsRojo := NOT EsRojo;

¿Se entiende la idea?

Saludos,