1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if key = VK_DOWN then edit1.text := 'Cursor Down';  //oder noch besser case-Anweisungen
    .
    .
    .
end;					

1:
2:
3:
4:
5:
6:
7:

uses...,Menus;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ListBox1.Items.Add(ShortCutToText(ShortCut(Key,Shift)));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:

procedure Buttons;
var Key: Word; x:string;
begin
  case key of
VK_DOWN : x := 'Down';
VK_UP : x := 'Up';
VK_LEFT : x := 'Left';
VK_RIGHT : x := 'Right';
VK_TAB : x := 'Tab';
VK_CLEAR : x := 'Delete';
VK_LSHIFT : x := 'LShift';
VK_RSHIFT : x := 'RShift';
VK_RETURN : x := 'Enter';
VK_LCONTROL : x := 'LCtrl';
VK_RCONTROL : x := 'RCtrl';
VK_LMENU : x := 'LAlt';
VK_RMENU : x := 'RAlt';
VK_ESCAPE : x := 'Esc';
VK_SPACE : x := 'Spacebar';
VK_PRIOR : x := 'PgUp';
VK_NEXT : x := 'PgDown';
VK_End : x := 'End';
VK_HOME : x := 'Home';
VK_INSERT : x := 'Insert';
VK_DELETE : x := 'KP Del';
VK_NUMPAD0 : x := 'KP 0';
VK_NUMPAD1 : x := 'KP 1';
VK_NUMPAD2 : x := 'KP 2';
VK_NUMPAD3 : x := 'KP 3';
VK_NUMPAD4 : x := 'KP 4';
VK_NUMPAD5 : x := 'KP 5';
VK_NUMPAD6 : x := 'KP 6';
VK_NUMPAD7 : x := 'KP 7';
VK_NUMPAD8 : x := 'KP 8';
VK_NUMPAD9 : x := 'KP 9';
VK_MULTIPLY : x := 'KP *';
VK_ADD : x := 'KP +';
VK_SUBTRACT : x := 'KP -';
VK_DECIMAL : x := 'KP ,';
VK_DIVIDE : x := 'KP /';
VK_F1 : x := 'F1';
VK_F2 : x := 'F2';
VK_F3 : x := 'F3';
VK_F4 : x := 'F4';
VK_F5 : x := 'F5';
VK_F6 : x := 'F6';
VK_F7 : x := 'F7';
VK_F8 : x := 'F8';
VK_F9 : x := 'F9';
VK_F10 : x := 'F10';
VK_F11 : x := 'F11';
VK_F12 : x := 'F12';
65: x := 'A';
66: x := 'B';
67: x := 'C';
68: x := 'D';
69: x := 'E';
70: x := 'F';
71: x := 'G';
72: x := 'H';
73: x := 'I';
74: x := 'J';
75: x := 'K';
76: x := 'L';
77: x := 'M';
78: x := 'N';
79: x := 'O';
80: x := 'P';
81: x := 'Q';
82: x := 'R';
83: x := 'S';
84: x := 'T';
85: x := 'U';
86: x := 'V';
87: x := 'W';
88: x := 'X';
89: x := 'Y';
90: x := 'Z'
else  x := '(none)';
end;
end;

procedure TF_THP8Launcher.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
x:=edit1.text;
Buttons;
Edit2.SetFocus;
end;					

1:
2:

function Button(Key: Word): String;
{...}					

1:
2:
3:

  {...}
  Edit1.text:=Button(45)
  {...}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function Virtual_Keys(const key: word): string;
begin
  case key of
    VK_LBUTTON:  result := 'Left mouse button';
    VK_RBUTTON:  result := 'Right mouse button';
    VK_CANCEL:   result := 'Control+Break';
    VK_MBUTTON:  result := 'Middle mouse button';
    VK_BACK:     result := 'Backspace key';
    VK_TAB:      result := 'Tab key';
    VK_CLEAR:    result := 'Clear key';
      .
      .
      .					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  edit1.Text := Virtual_Keys(key);
end;

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  edit2.Text := Virtual_Keys(key);
end;
    .
    .
    .					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

// bei uses menus nicht vergessen

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit1.Text := ShortCutToText(Key);
end;

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit2.Text := ShortCutToText(Key);
end;
   .
   .
   .