[dec]

Hola,

A ver si esto te da alguna idea:

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