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

function GetKeyName(Key:Word):String;
begin
  if Key = VK_LEFT then result:='Pfeil Taste Links';
  if Key = VK_RIGHT then result:='Pfeil Taste Rechts';
  if Key = VK_UP then result:='Pfeil Taste Oben';
  if Key = VK_Down then result:='Pfeil Taste Unten';  
end;					

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

  case key of
    VK_LEFT:    result := 'Linke Pfeiltaste';
    VK_RIGHT:   result := 'Rechte Pfeiltaste';
    VK_UP:      result := 'Obere Pfeiltaste';
    VK_DOWN:    result := 'Untere Pfeiltaste';
    VK_ESCAPE:  result := 'Escape';
    VK_F1:      result := 'F1';
  end;

  result := result + ' wurde gedrückt';					

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

type
  tScanCodes = Record
  Code: Integer; // der Tastaturcode
  StrCode: String; // Umsetzung als String
end;

const
  ScanCodes : Array[0..n] of tScanCodes =(code:VK_Return;StrCode:'...'); // u.s.w.