I just added the following OnClose handler to my application's main form:

I just added the following OnClose handler to my application's main form:

procedure TMyForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caMinimize;
end;

But when I press the close button, the form does not minimize but the application terminates.

WTF?

Here is the code from VCL.Forms that causes this:

procedure TCustomForm.Close;
var
    CloseAction: TCloseAction;
begin
  // ...  
  DoClose(CloseAction);
  if CloseAction <> caNone then
    if Application.MainForm = Self then
      Application.Terminate
  // ...    
end;

When was this introduced? Or was it always the case that no matter what CloseAction you return from OnFormClose of your main form, if it's not caNone, the application terminates?