Überprüfen, ob Taste x oder y gedrückt ist

[Mirilin]

Delphi-Quellcode:

//so
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = $59 then showmessage('Y'); //$59 hab ich aus der Codelibrary, siehe link unten
end;
//oder sp
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if uppercase(key) = 'X' then showmessage('X');
end;

Die Liste der virtuellen Tastenkodes.