Problem mit caNone, caMinimize bei Form.OnClose

[PeterPanino]

... und selbst bei docs.embarcadero stehen zwei Beispiele, die deshalb nicht funktionieren:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('Close application ?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
Action := caFree
else
Action := caMinimize;
end;