Программа для залипания кнопки мыши в Linux (Lazarus)

[BLACK_RAIN]

В общем, нужна программа для залипания кнопки мыши в Kubuntu. Чтобы держишь кнопку N-секунд, отпускаешь, а она осталась нажатой.
Поискал в инете - не нашел и решил, что придется писать самому.
Принцип программы прост:
1) перехватить нажатие кнопки мыши и включить таймер.
2) перехватить отпускание той же кнопки. Если таймер тикал более N секунд, отменить отпускание кнопки, оставив ее нажатой.
3) при следующем нажатии кнопки, отменить ее залипание (сэмулировать отпускание)
Проблема в том, что я не знаю линуксовый аналог хука на мышь и какие события будут приходить при нажатии/отпускании кнопок мыши.
Удалось нагуглить функцию XGrabButton, но что делать после ее вызова мне не понятно.
Прошу помощи. Желательно под Lazarus.
p.s. Если такая программа уже существует и кто-нибудь скажет название, буду только рад поюзать.

[BLACK_RAIN]

сделал так:

xGrabPointer(d, DefaultRootWindow(d), true, PointerMotionMask, GrabModeAsync, GrabModeAsync, None, None, CurrentTime);

события от мыши приходят, но все окна виснут.
никто не поможет?
Точнее, окна не виснут, а перестают реагировать на мышь. Им сообщения не доходят.

[BLACK_RAIN]

накидал код

program project1;

{$mode objfpc}{$H+}

uses
  xlib, x, ctypes, sysutils;

procedure run;
var
  d: PDisplay;
  w,root: TWindow;
  e: TXEvent;
  msg: PChar;
  s: cint;
  mx , my : integer;
  t : string;
begin
  t := 'gg';
  msg := PChar(t);

  d := XOpenDisplay(nil);
  if (d = nil) then
  begin
    WriteLn('[ModalShowX11Window] Cannot open display');
    exit;
  end;

  s := DefaultScreen(d);

  w := XCreateSimpleWindow(d, RootWindow(d, s), 10, 10, 200, 200, 1,
                           BlackPixel(d, s), WhitePixel(d, s));

  XSelectInput(d, w, ExposureMask or KeyPressMask or pointermotionmask or
                  buttonpressmask or buttonreleasemask);

  XMapWindow(d, w);


  root := DefaultRootWindow(d);

  XGrabPointer(d, root, False, ButtonPressMask or ButtonReleaseMask or
               PointerMotionMask, GrabModeAsync, GrabModeAsync, None,
               None, CurrentTime);

  while (True) do
  begin
    XNextEvent(d, @e);
    case e._type of
      expose:
       begin
         XFillRectangle(d, w, DefaultGC(d, s), 20, 20, 10, 10);
         XDrawString(d, w, DefaultGC(d, s), 50, 50, msg, strlen(msg));
       end;
      KeyPress:
       begin
         break;
       end;

      motionnotify:
        begin
          mx := e.xmotion.x;
          my := e.xmotion.y;
          t := inttostr(mx)+','+inttostr(my);
          XDrawstring(d, w, DefaultGC(d, s), 50, 50, pchar(t), strlen(pchar(t)));

         end;

      buttonpress:
       begin
          mx := e.xmotion.x;
          my := e.xmotion.y;
        case e.xbutton.button of
          button1:
            t := 'left';
        end;
      end;
    end;
  end;

  xungrabpointer( d,currenttime);
  XCloseDisplay(d);
end;

begin
  run;
end.

Почему окна перестают реагировать на мышь?