Не блокируется правая кнопка мыши

[Amilman]

Пытаюсь заблокировать правую кнопку мыши, глобальным хуком, но при отработке программы правая кнопка начинает действовать как постоянно нажатая левая и при этом, сама левая кнопка перестает отвечать вообще. Что не так в коде?

function Mouse_Hooks(code: integer; wParam: longint; lParam: longint)
  : longint; stdcall;
begin
  if code = HC_ACTION then
  begin
    if wParam = WM_RBUTTONUP then
      result := -1
    else
      result := CallNextHookEx(Mouse_SysHook, code, wParam, lParam);
  end
  else
    result := CallNextHookEx(Mouse_SysHook, code, wParam, lParam);
end;

[DpolenST]

if wParam = WM_RBUTTONUP or wParam = WM_RBUTTONDOWN  then

[Amilman]

Сообщение от DpolenST

if wParam = WM_RBUTTONUP or wParam = WM_RBUTTONDOWN  then

Спасибо уважаемый, теперь все работает. Пытался немного пойти, по-другому забыв напрочь про этот метод.