C++Builder XE3のVCLフォームアプリケーションでは次のように記述できるが、FireMonkeyデスクトップアプリケーションではコンパイルエラーになる。

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caFree;
}

FireMonkeyデスクトップアプリケーションでは次のように記述する必要があるようだ。

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = TCloseAction::caFree;
}

この書き方はVCLフォームアプリケーションでもコンパイルできる。

Delphi XE3でも同じようだ。
FireMonkeyデスクトップアプリケーションでは次のように記述する。

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := TCloseAction.caFree;
end;