Не вызывается событие при нажатии кнопки

void __fastcall TForm1::FormKeyPress(TObject *Sender, wchar_t &Key)
{
  ShowMessage("кАсмчс а");
  int n,m;
  for (int i = 0; i < 4; i++) {
    for (int j = 0; j <4; j++) {
      if (mas[i][j]==0) {n=i;m=j;break;}
    }
  }
  if (Key=38) {
    if ((n+1)<4) {
      swap(mas[n][m],mas[n+1][m]);
      SwapBlocks(n+1,m,n,m);
      s+=1;
      Label2->Caption=IntToStr(s);
      if (IsVictory()) {
        IfWin();
      }
      return;
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
  ShowMessage("dsafds");
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{ 
     RegisterHotKey(Handle,1,NULL,0x26);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
      if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 1))
         ShowMessage("Нажата клавиша ВВЕРХ");
}

if ((n+1)<4) {
      swap(mas[n][m],mas[n+1][m]);
      SwapBlocks(n+1,m,n,m);
      s+=1;
      Label2->Caption=IntToStr(s);
      if (IsVictory()) {
        IfWin();
      }
      return;
    }

    if (Key==38) {
          ShowMessage("вы нажали клавишу вверх");
    }