Código Delphi [-] procedure TFMenu.Timer1Timer(Sender: TObject); begin with Label1.Font do Color := RGB(Random(255),Random(255),Random(255)); end;
procedure TFMenu.Timer1Timer(Sender: TObject); begin with Label1.Font do Color := RGB(Random(255),Random(255),Random(255)); end;