Io ho fatto cosi dovrebbe funzionare ma c'è qualcosa che non va con la mia versione di delphi 7
codice: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;