Коды клавиш и символов в Дельфи

[DeKot]

Следующий код:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: word
   Shift: TShiftState);
 var  a: byte;
 begin
   a:= Key;
   Form1.Canvas.TextOut(100,100,IntToStr(a));
 end;

При нажатии любой клавиши получаем код клавиши.Для букв и цифр он
совпадает с ANSI кодом (буквы англ. верхнего регистра).
А как получить ANSI-код символа клавиши? Чтобы учитывалась русская или англ. раскладка и регистр.

[Arigato]

Используйте событие FormKeyPress вместо FormKeyUp и переводите параметр Key в Byte.

[DeKot]

To Arigato Точно.Спасибо.
Вот накопал за выходные в учебниках:
OnKeyPress событие типа TKeyPressEvent
Type TKeyPressEvent = procedure (Sender: TObject; var Key: Char) of object;
Переменная Key содержит символ ANSII нажатой клавиши с учетом раскладки и регистра.

procedure  TForm1.FormKeyPress(Sender: TObject; var Key: Char;
   Shift: TShiftState);
var 
  simbol: char;
  code: byte;
begin
  simbol:= Key;
  code:= ord(simbol); //  получаем код символа ANSII нажатой клавиши
end;