Вопрос про FormKeyDown

[Kn793]

Что бы отследить нажатие клавиши в FormKeyPress нужно написать

If Key = '1' then тра-та-та

А как можно сделать тоже самое только в FormKeyDown?

[Kostia]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then ... //если нажат Enter то ...
end;

[Kn793]

Тут нум лук не рабатает.

[eoln]

Работает - form1.KeyPreview установи в true

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 144 then application.MessageBox('','');
end;