HHOOK hk;
LRESULT CALLBACK KeyHook (int,WPARAM,LPARAM);
TForm1 *Form1;
......
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 hk=SetWindowsHookEx(WH_KEYBOARD,(HOOKPROC)KeyHook,NULL,GetCurrentThreadId());
....
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 UnhookWindowsHookEx(hk);
.........
}
//---------------------------------------------------------------------------
LRESULT CALLBACK KeyHook (int nCode,WPARAM wParam,LPARAM lParam)
{
 DWORD AltPress= 0 ;
 AltPress=lParam & 0x20000000;
 if(AltPress)
  {
   switch(wParam){
   case  33 :
    Form1->Hide();
    break;
   case  34 :
    Form1->Show();
    break;
   }
  }
 return CallNextHookEx(hk,nCode,wParam,lParam);
}

...
HHOOK hk;
LRESULT CALLBACK KeyHook (int,WPARAM,LPARAM);
TForm1 *Form1;
DWORD Shift= 0 ,Ctrl= 0 ; //Глобальные переменные, следящие за нажатием 
                               //клавиш Shift и Ctrl соответственно
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 hk=SetWindowsHookEx(WH_KEYBOARD,(HOOKPROC)KeyHook,NULL,GetCurrentThreadId()); //Ставим хук на нажатие клавиш на клавиатуре
 if(hk)
  MessageBox(NULL,"Hook enabled",MB_OK, 0 ); //Сообщаем об этом пользователю
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 MessageBox(this->WindowHandle,"Search enabled",MB_OK, 0 );
}
//---------------------------------------------------------------------------
LRESULT CALLBACK KeyHook (int nCode,WPARAM wParam,LPARAM lParam)
{
 DWORD KeyPress= 0 ;
 //Из lParam вытягиваем код нажатой клавиши
 KeyPress=lParam>> 16 ;
 KeyPress=(AltPress<< 8 )>> 8 ;
 //Был нажат Shift
 if((KeyPress==0x2A)||(KeyPress==0x36))
  Shift=0x1;
 //Был нажат Ctrl
 if(KeyPress==0x1D)
  Ctrl=0x1;

  //Была нажата комбинация Shift+Ctrl
 if((Shift!= 0 )&&(Ctrl!= 0 ))
  {
   if(Form1->Button1->Enabled)
     {
      Form1->Button1->Enabled=false;
      Form1->Caption="Ctrl+Shift hooked";
      }
    else
    {
     Form1->Button1->Enabled=true;
     Form1->Caption="Ctrl+Shift unhooked";
     }
   Shift=Ctrl= 0 ;//Сбрасываем состояние клавиш...
   return  0 ; //Пропускаем остаток очереди сообщений
  }
 return CallNextHookEx(hk,nCode,wParam,lParam);
}
//--------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{ 
 //Убиваем хук и сообщаем об этом пользователю
 if(UnhookWindowsHookEx(hk))
  MessageBox(NULL,"Hook disabled",MB_OK, 0 );
}
//---------------------------------------------------------------------------

...
 if((AltPress==0x2A)||(AltPress==0x36))
  Shift=0x1;
 else if(AltPress==0x1D)
  Ctrl=0x1;
 else
  {
   Shift=Ctrl= 0 ;
   return CallNextHookEx(hk,nCode,wParam,lParam);
  }
...