Постановка задачи. Создайте приложение, выдающее код клавиши. Используйте событие формы OnKeyDown, в обработчике которого выведите десятичный код (переменная key) с помощью Label1.Caption.

Рис. 23. Код клавиш
Реализация. Положите на форму четыре надписи TLabel. Откройте вкладку «События» формы и дважды кликните напротив событий OnKeyDown и OnKeyPress. Напишите следующий код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
label1.Caption:=Inttostr(key);
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
label2.caption:=key;
end;
Задание. Перенесите в тетрадь в виде таблицы коды основных клавиш и символов.