Opcion TTimer Ayuda

[[duilioisola]]

Según lo que dice dec, quedaría algo asi:

Código Delphi [-]
procedure TFMenu.Timer1Timer(Sender: TObject);
begin
   Timer1.enabled:=False;

   if  (Label1.Font.Color=clWebBlue) then
      Label1.Font.Color:=clRed;

   if  (Label1.Font.Color=clRed) then
      Label1.Font.Color:=clYellow;

   if  (Label1.Font.Color=clYellow) then
      Label1.Font.Color:=clMaroon;

   if  (Label1.Font.Color=clMaroon) then
      Label1.Font.Color:=clWebBlue;

   if  ((Label1.Font.Color<>clRed) and (Label1.Font.Color<>clYellow) and (Label1.Font.Color<>clMaroon) and (Label1.Font.Color<>clWebBlue)) then
      Label1.Font.Color:=clRed;

   Timer1.enabled:=True;
end;

Si es azul lo pongo en rojo.
Si es rojo lo pongo en amarillo.
Si es amarillo lo pongo en marron.
Si es marron lo pongo en azul.
Si no es ninguno de los colores anteriores lo pogo en rojo.

Asi irá haciendo un ciclo entre estos colores...