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...