procedure TForm1.Timer1Timer(Sender: TObject); var x : integer; begin x :=clYellow+clRed+clBlue+clBlack+clSilver+clWhite; Label1.caption := 'AiX';{В ковычках прописывается текст который будет мигать)))} if label1.visible then Label1.Visible:=False else Label1.Visible:=True; randomize; Label1.Font.Color := random(x)
