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:

procedure TForm1.Verarbeiten(Code: Integer; Textfeld: TEdit; Log: TListBox);
var
buf:string;
begin
 //Texterzeugen
 buf:=inttostr(Code);
 //ins Textfeld schreibern
 textfeld.Text:=buf;

 //loggen
 //max 10 Elemente -> daher alles oberhalb von 9 Elementen löschen
 while Log.Count>9 do
  log.Items.Delete(0);
 //neues Element einfügen
 log.Items.Add(buf);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 verarbeiten(Key,KeyDownEdit,KeyDownlog);
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 verarbeiten(Ord(Key),KeyPressEdit,KeyPresslog);
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 verarbeiten(Key,KeyUpEdit,KeyUplog);
end;                    

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

MS_MediaPlayer_öffnen  181
Outlook_öffnen    180
Play      179
Stop      178
BackSkip    177
ForwardSkip    176
Lauter      175
Leiser      174
Mute      173
Home(Standardbrowser)  172
Favoriten_öffnen  171
Suche_öffnen    170
Seite_vor    167
Seite_zurück    166