[Тимофей Петрович]

живу в линупсе, просто надо отловить нажатие кнопки мыши по таймеру.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Button: TMouseButton;
begin
  if Button=mbright then ..;
  if Button=mbleft then ..;
end; 

ругается на Button который does not seem to be initialized (кажется, не инициализирован) но оба if отрабатывают каждый раз при проходе по таймеру.

в примерах по интернету всё происходит в событиях нажатия на кнопку, при этом если кнопку не отжимать - процедура какбы залипает?
как замутить повтор прохода по процедуре я совсем не понял.