[dmdx]

Код:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 ShowMessage('Вы нажали клавишу '+Key+' с кодом #'+ inttostr(integer(key)));
end;