Блокировка клавиатуры

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        // блокировка
        hHookWindows = SetWindowsHookEx(WH_KEYBOARD_LL, (HOOKPROC)&KeyboardProc, NULL, NULL);
}

HHOOK KeybHookHandle, MouseHookHandle;
LRESULT CALLBACK KeybProc(int code, WPARAM wParam, LPARAM lParam);
LRESULT CALLBACK MouseProc(int code, WPARAM wParam, LPARAM lParam);
//---------------------------------------------------------------------------
 
__fastcall TfMain::TfMain(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
__fastcall TfMain::~TfMain() // в деструкторе прописал на всякий пожарный
{
 if (KeybHookHandle) UnhookWindowsHookEx(KeybHookHandle);
 if (MouseHookHandle) UnhookWindowsHookEx(MouseHookHandle);
}
//---------------------------------------------------------------------------
void __fastcall TfMain::Button1Click(TObject *Sender)
{
 // блокировать клавиатуру
 KeybHookHandle = SetWindowsHookEx(WH_KEYBOARD_LL,(HOOKPROC)&KeybProc,NULL ,NULL);
 if (!KeybHookHandle) ShowMessage("Error SetWindowsHookEx Keyboard");
}
//---------------------------------------------------------------------------
void __fastcall TfMain::Button2Click(TObject *Sender)
{
 // разблокировать клавиатуру
 UnhookWindowsHookEx(KeybHookHandle);
}
//---------------------------------------------------------------------------
void __fastcall TfMain::Button3Click(TObject *Sender)
{
 // блокировать мышь
 MouseHookHandle = SetWindowsHookEx(WH_MOUSE_LL,(HOOKPROC)&MouseProc,NULL ,NULL);
 if (!MouseHookHandle) ShowMessage("Error SetWindowsHookEx Mouse");
}
//---------------------------------------------------------------------------
void __fastcall TfMain::Button4Click(TObject *Sender)
{
 // разблокировать мышь
 UnhookWindowsHookEx(MouseHookHandle);
}
//---------------------------------------------------------------------------
LRESULT CALLBACK KeybProc(int code, WPARAM wParam, LPARAM lParam)
{
 return -1;
}
//-------------------------------------------------------------------- -------
LRESULT CALLBACK MouseProc(int code, WPARAM wParam, LPARAM lParam)
{
 return -1;
}
//---------------------------------------------------------------------------