ALT+F4 Опции

[Maks de Pascal]

Помогите разобраться как сделать чтоб форма не закрывалась по ALT+F4

[mj]

Форма закроется если нажать на крестик и держать при этом Shift

// событие формы OnCloseQuery
procedure TForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := (ssShift in GetShiftState);
  if not CanClose then
    Hide;
end;