Delphi - Label Lampeggiante Colorato

In che modo è possibile creare un Controllo Label Lampeggiante facendolo avviare da procedure TForm1.Button1Click(Sender: TObject);? Questo è il codice che vorrei modificare.

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

strano... in teoria dovrebbe funzionare...

cmq prima di tutto imposta a false la proprietà enabled del timer, poi dentro al pulsante scrivi:

timer1.enabled:=true;

Ho fatto cosi ma non va:
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;

den tro al pulsante devi scrivere cosi, se imposti in quel modo il timer

label1.Color:=clred;
timer1.enabled:=true;

l'ho fatto ma non succede niente per me è la mia versione di delphi che ha qualcosa che non va.

ma non va in che senso???


cmq guarda il sorgente che it ho allegato

Problema risolto ho aggiornato delphi adesso funziona il codice.