[Alegun]

Сообщение от Тимофей Петрович

...один раз нажал и ждешь...

Тогда смените логику управления таймером

Код:

...
var btn: TMouseButton;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 case btn of
  mbright: ButtonXY:=1;
  mbleft:  ButtonXY:=2;
 end;
 Application.ProcessMessages;
 ButtonXY:=0;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 btn:= Button;
 Timer1.Enabled:= true;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Timer1.Enabled:= false;
end;
...