C++ Builder Key list

//---------------------------------------------------------------------------
include <map>

//---------------------------------------------------------------------------
//In your TForm class:
std::map<int, AnsiString> myKeyMap;
//---------------------------------------------------------------------------
//In the constructor:
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  myKeyMap[13] = "enter";
  myKeyMap[16] = "shift";
  myKeyMap[17] = "ctrl";
  myKeyMap[18] = "alt";
  myKeyMap[27] = "esc";
  myKeyMap[32] = "space";
  myKeyMap[33] = "pgup";
  myKeyMap[34] = "pgdown";
  myKeyMap[35] = "end";
  myKeyMap[36] = "home";
  myKeyMap[37] = "left";
  myKeyMap[38] = "up";
  myKeyMap[39] = "right";
  myKeyMap[40] = "down";
  myKeyMap[45] = "insert";
  myKeyMap[46] = "delete";
  myKeyMap[65] = "a";
  myKeyMap[66] = "b";
  myKeyMap[67] = "c";
  myKeyMap[68] = "d";
  myKeyMap[69] = "e";
  myKeyMap[70] = "f";
  myKeyMap[71] = "g";
  myKeyMap[72] = "h";
  myKeyMap[73] = "i";
  myKeyMap[74] = "j";
  myKeyMap[75] = "k";
  myKeyMap[76] = "l";
  myKeyMap[77] = "m";
  myKeyMap[78] = "n";
  myKeyMap[79] = "o";
  myKeyMap[80] = "p";
  myKeyMap[81] = "q";
  myKeyMap[82] = "r";
  myKeyMap[83] = "s";
  myKeyMap[84] = "t";
  myKeyMap[85] = "u";
  myKeyMap[86] = "v";
  myKeyMap[87] = "w";
  myKeyMap[88] = "x";
  myKeyMap[89] = "y";
  myKeyMap[90] = "z";
  myKeyMap[112] = "F1";
  myKeyMap[113] = "F2";
  myKeyMap[114] = "F3";
  myKeyMap[115] = "F4";
  myKeyMap[116] = "F5";
  myKeyMap[117] = "F6";
  myKeyMap[118] = "F7";
  myKeyMap[119] = "F8";
  myKeyMap[120] = "F9";
  myKeyMap[121] = "F10";
  myKeyMap[122] = "F11";
  myKeyMap[123] = "F12";
}
//---------------------------------------------------------------------------
//The OnKeyDown Event
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  Caption = myKeyMap[Key];
}
//---------------------------------------------------------------------------