Como verificar o código de uma tecla pressionada?

Para testar, crie uma nova aplicação.

No formulário, deixe a propriedade KeyPreview como True;

Adicione um label ao formulário;

E no evento OnKeyUp do form, deixe conforme o exemplo abaixo:

1
2
3
4

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  label1.caption := '#' + Key.ToString;
end;

Dúvidas ou sugestões deixe nos comentários do post.