[DELPHI] Controllo Label lampeggiante e colorato

[camaleonteplus]

Io ho fatto cosi dovrebbe funzionare ma c'è qualcosa che non va con la mia versione di delphi 7

procedure TForm1.Button1Click(Sender: TObject); begin label1.Color:=clGreen; timer1.enabled:=true; end;  procedure TForm1.Timer1Timer(Sender: TObject); begin   if Label1.Color = clRed then     Label1.Color := clGreen   else     Label1.Color := clRed; end;