Как получить код клавиши клавиатуры.

[prw07]

Можно код клавиатуры перевести в символ:
Edit1.Text:=#61;

А вот как наоборот? Из символов введенных в Edit1.Text получить их код?

[Прик]

Например так:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  Label1.Caption := IntTostr(Key);
end;

Здесь Key есть код нажатой клавиши

[Олвин]

Код в символ - функция chr. Символ в код (или значение любого перечислимого типа в код) - ord.