При нажатии на клавиши Num Lock, Caps Lock, Insert вывести в StatusBar состояние кнопок C++

void __fastcall TForm1::FormCreate(TObject *Sender)
{
for( int i=0; i<3; i++ )
    {
    StatusBar1->Panels->Add();
    StatusBar1->Panels->Items[i]->Width = StatusBar1->Parent->Width/3;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
switch( (int)Key )
    {
    case 20  : StatusBar1->Panels->Items[0]->Text = "CapsLock";   break;
    case 144 : StatusBar1->Panels->Items[1]->Text = "NumLock";    break;
    case 145 : StatusBar1->Panels->Items[2]->Text = "ScrollLock"; break;
    }
}

void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
    switch (Key)
    {
    case VK_CAPITAL:
        StatusBar1->Panels->Items[0]->Text = (::GetKeyState(VK_CAPITAL)) ? "CapsLock" : "";
        break;
    case VK_NUMLOCK:
        StatusBar1->Panels->Items[1]->Text = (::GetKeyState(VK_NUMLOCK)) ? "NumLock" : "";
        break;
    case VK_SCROLL:
        StatusBar1->Panels->Items[0]->Text = (::GetKeyState(VK_SCROLL)) ? "ScrollLock" : "";
        break;
    }
}