Cerrar Formularios con la Tecla ESC

[sleep25000]

Buenos días,

Estoy trabajando con Delphi 2010, deseo cerrar los formularios al pulsar la tecla ESC, tengo un ActionList, pero la propiedad ShortCut no contiene el valor ESC,
de que forma podria hacerlo?

Gracias.

[Casimiro Noteví]

En el FormOnKeyDown

Código Delphi [-]
procedure TFform1.FormKeyDown(Sender: TObject; var Key: Word; Shift:  TShiftState);
begin
  if Key = VK_ESCAPE then Close;
end;

[sleep25000]

Empezado por Casimiro Notevi

En el FormOnKeyDown

Código Delphi [-]
procedure TFform1.FormKeyDown(Sender: TObject; var Key: Word; Shift:  TShiftState);
begin
  if Key = VK_ESCAPE then Close;
end;

gracias, me funciona muy bien