Мерцающий текст

[LobsterOK]

Прогаммисты. Поможите новичку, плиз.
Как сделать мерцающий текст на Delphi 7...

Допустим просто чтобы label менял цвет. (ну мерцал какое-то время)
Хотел попробовать с функцией Timer типо с определенной секундой меняется цвет.... ниче не получилось
Да и вообще, объясните плиз, как поьзоваться функцией Timer... в полной мере, типо чтобы с каждой точкой во времени выполнялась какая то функция (одна или две или больше не важно)

ЗЫ: извините если не там написал...

[BOBAH13]

НА вкладке Events ( вроде ) жмете на обработчик OnTimer - где и пишите свой код, Enabled - свой-во говорящие что таймер включен, если установлено True. Interval - интервал вызова OnTimer обработчика. Цвет меняь у TLable.Font.Color := clBlack или clBlue и т.п.

[SERG1980]

В событии OnTimer таймера пишем

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if label1.Font.Color=clblue then label1.Font.Color:=clred
 else label1.Font.Color:=clblue;
end;

[LobsterOK]

А если я хочу сделать попугая? И надо больше чем 3 цвета?

Попробовал case не сработало .

[SERG1980]

Сообщение от LobsterOK

А если я хочу сделать попугая? И надо больше чем 3 цвета?

Попробовал case не сработало .

procedure TForm1.Timer1Timer(Sender: TObject);
begin
randomize;
label1.Font.Color:=RGB(random($FF),random($FF),random($FF));
end;

[_SERGEYX_]

Можно сделать только из определенных цветов

const col: array[0..3] of TColor = ($00FFCCCC, $005674F1, clBlue, $00116EA5);
******
label1.Font.Color:=col[Random(3)];

[LobsterOK]

Огромное спасибо всем.
Разобрался