Как запретить нажимать кнопку используя хук?

[TwiX]

Пробовал так:

function KeyHook(CODE, WParam, LParam: DWORD): DWORD; stdcall;
begin
  if CODE=HC_ACTION then
  begin
    if (WParam=18) or (WParam=ord('X')) then
    begin
      WParam:=0;
    end
    else
    Beep;
  end;
  Result:=CallNextHookEx(HookHandle, code, WParam, LParam);
  //ShowMessage(IntToStr(WParam));
end;

Т.е. хотел, чтоб нельзя было альт или Х нажать...

Нашёл в инете это:

Function SysMsgProc(Code:Integer; WParam:LongInt; LParam:LongInt):LongInt; stdcall; 
Var Msg:TMessage; 
Begin 
 IF Code=HC_ACTION then 
  Case TMsg(Pointer(LParam)^).Message OF 
   WM_RBUTTONDOWN,WM_RBUTTONUP,WM_RBUTTONDBLCLK: TMsg(Pointer(LParam)^).Message:=WM_NULL 
   else Result:=CallNextHookEx(SysHook,Code,WParam,LParam); 
  End; 
end;

Не работает