[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;