Opcion TTimer Ayuda

[Lynn]

Bueno mi Pregunta Como es la Opcion TTimer para que un Label Cambien de Color a Cada Segundo en el TTimer Prove Con esto

Código Delphi [-]
procedure TFMenu.Timer1Timer(Sender: TObject);
begin
Label1.Font.Color:=clRed;
Label1.Font.Color:=clYellow;
Label1.Font.Color:=clMaroon;
Label1.Font.Color:=clWebBlue;
Timer1.enabled:=True;
end;

Pero no me cambia se pasa defrente al clWebBlue yo se que debe ir algo pero no se que la vez pasada me salio T_T me pueden ayudar