Закрытие программы по Esc

[VovanZ]

Хочу закрыть прогу по нажатию кнопки Esc.
Ни один из следующих вариантов не работает.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#27 then application.Terminate;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#27 then halt;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#27 then close;
end;

Если ту же команду вызывать кнопкой всё работает....

Upd. Пробовал выводить код кнопки в консоль:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  writeln(ord(key));
end;

Выяснил, что ивент вообще не срабатывает. Не могу понять почему.

[mihali4]

У формы KeyPreview должно быть в True.

[VovanZ]

Сообщение от mihali4

У формы KeyPreview должно быть в True.

Спасибо, всё заработало.