код нажатой клавиши

[galaid]

привет всем. я относительно недавно перешёл с Паскаля на Делфи и у меня возникла проблема. Мне надо переменной присвоить код нажатой клавиши (в Паскале это делается так: c:=readkey).

[DomiNick]

Недавно была похожая тема

[galaid]

так что делать надо?

[anGeee]

Воспользоваться поиском ? *scratch*

[DeKot]

Код нажатой клавиши :

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var cod: byte;
begin
  cod:= Ord(Key);
   // вывод в Edit :
  Form1.Edit1.Text:= Form1.Edit1.Text + ' ' + IntToStr(Ord(Key));
end;