Capture Alt + F4

På den form du vil forhindre bliver lukket med Alt+F4 skal du håndtere den eventen OnClose. Eks.
HandleOnClose(Sender: TObject; VAR Action: TCloseAction);
begin
  // Hvis det ikke er tilladt at lukke:
  Action := caNone;
end;

Nu skal i ikke overfalde mig... Jeg ved det er en ufleksibel løsning

Man skal da stadig vide om -onclose-'en komme fra ALT-F4 eller om den komme fra et andet sted, hvor den gerne må lukke fra?

Lav en OnKeyDown event-handler på din form der ser således ud :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_F4) and (Shift = [ssAlt]) then
    Key := 0;
end;

OK, du kom før mig :-)

Dog vil jeg knytte den kommentar at min løsning er at foretrække hvis der skal undersøges på en tilstand i formen, før lukning tillades. Er formålet helt enkelt at "spise" Alt+F4 giver jeg mig!