изменить цвет label

[Умагаджи]

как сделать так чтобы при нажатии кнопки значение в label становилось например красного цвета в течении 2 секунд и обратно возвращалось бы в исходный цвет?

[denisbrain]

procedure sleep(m:integer);
var i,t:integer;
begin
t:=windows.GetTickCount;
  repeat
   i:=windows.GetTickCount;
   if ((i-t)>m) then exit;
   application.ProcessMessages;
  until false
end;

begin
form1.Label1.Font.Color:=clred;
sleep(1000*2); // 2 секунды 
form1.Label1.Font.Color:=clblack;
end;

[Умагаджи]

такой подход не работает почему-то... цвет не меняется

[Умагаджи]

Заработало спасибо!