KeyPress не хочет работать как ему положено

void __fastcall TForm1::FormKeyPress(TObject *Sender, System::WideChar &Key)
{
if (Key == 78) {
    Form2->Show();/*Для примера*/
}
}

if (Key == 78)
    Form2->Show();
else
    ShowMessage(Key);

namespace MyButton
{
    class TButton : public Vcl::Stdctrls::TButton
    {
    protected:
    MESSAGE void __fastcall WMGetDlgCode(TWMNoParams &Message)
    {
        Message.Result = DLGC_WANTARROWS;
    }
 
    BEGIN_MESSAGE_MAP
        VCL_MESSAGE_HANDLER(WM_GETDLGCODE, TWMNoParams, WMGetDlgCode);
    END_MESSAGE_MAP(Vcl::Stdctrls::TButton);
    };
}
#define TButton MyButton::TButton
 
class TForm1 : public TForm // дальше все без изменений, твоя форма не трогается...

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
    TShiftState Shift)
 
{
    if (Key == VK_RIGHT)
    {
        Form2->Show(); /* Для примера */
    }
}

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) {
if( Key == 'W'){
   Form2->Show(); /* Для примера */
}
}

void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key == VK_UP) Form2->Show();
}

void __fastcall TForm1::ApplicationEvents1ShortCut(TWMKey &Msg,
      bool &Handled)
{
   if(Msg.CharCode==38)
    { Form2->Show(); Handled=true; }
}