Проверка на зажатие кнопки

[*stRong*]

Всем привет! Меня интересует такой вопрос: как можно проверить, зажата кнопка(button), или же нет? Т.е. при нажатии на кнопку должен запуститься таймер, а в таймере должно проверяться условие, зажата ли кнопка или нет.

Нужно что-то типа такого:

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
if (buntton1.OnMouseDown=true) then
begin
label1.Caption:=IntToStr(i);
i:=i+1;
label1.caption:='';
end else
timer1.enabled:=false;
end;

Но выражение buntton1.OnMouseDown=true естественно не работает, т.к. вообще не имеет походу логического типа.

[Аватар]

По событию OnMouseDown буттона запустить таймер, а по OnMouseUp остановить - не нравится? И пока таймер тикает, значит кнопка мыши не отпущена

[*stRong*]

По событию OnMouseDown буттона запустить таймер, а по OnMouseUp остановить - не нравится? И пока таймер тикает, значит кнопка мыши не отпущена

Спасибо, помогло