[angvelem]

Я бы на твоём месте писал на WinAPI, пробем меньше будет.
По поводу меню:

Код:

function MouseHook(nCode, wParam, lParam : integer) : Lresult; stdcall;
begin
  case wParam of
  WM_RBUTTONUP :
    begin
      popupmenu1 := tpopupmenu.create(application);
      with popupmenu1.items do
        add(newitem('click', 0, False, True, fm.x1Click, 0, 'MenuItem1'));
      popupmenu1.popup(mouse.cursorpos.x, mouse.cursorpos.y);
    end
    else
      Result := CallNextHookEx(theHook, nCode, wParam, lParam);
  end;
end;

идёт постоянное создание нового меню без его последующего уничтожения. Создай его в секции initialization, а в finalization уничтожай.