Отключение кнопки windows

[DKENT]

Здраствуйте, в просторах сети нашел данный код

type
pKBDLLHOOKSTRUCT = ^TKBDLLHOOKSTRUCT;
   TKBDLLHOOKSTRUCT = record
   vkCode: DWORD;
   scanCode: DWORD;
   flags: DWORD;
   time: DWORD;
   dwExtraInfo: DWORD;
   end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Hk:HHOOK;strct:pKBDLLHOOKSTRUCT;
implementation

{$R *.dfm}
function LowLewelKeyboardProc(nCode:integer;wParam:Longint;lParam:Longint):Longint;stdcall;
begin
   Result:=1;
   if (wParam=WM_KEYUP) or (wParam=WM_KEYDOWN) then strct:=pKBDLLHOOKSTRUCT(lParam);

   case  strct.vkCode of
    91,92 :begin end
    // 91 - left Win
    // 92 - right Win
   else Result:=CallNextHookEx(Hk,nCode,wParam,lParam);
   end;
end;

function DisableStart(): Boolean;
begin
  Hk:=SetWindowsHookEx(13,@LowLewelKeyboardProc,HInstance,0);
  Result:=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DisableStart
end;

Данный код работает, но при нажатии Button1 а после нажатия alt появляеться такая ошибка

http://s019.radikal.ru/i644/1304/02/a941e9d3a548.jpg

Как быть, как убрать данную ошибку?
Заранее благодарен!

[eoln]

http://msdn.microsoft.com/ru-RU/libr...(v=vs.85).aspx

wParam [in]

Type: WPARAM

The identifier of the keyboard message. This parameter can be one of the following messages: WM_KEYDOWN, WM_KEYUP, WM_SYSKEYDOWN, or WM_SYSKEYUP.

[DKENT]

Спасибо проблема решена)