Código Delphi [-]Action:= caFree;
Action:= caFree;
Código Delphi [-]Action:= TCloseAction.caFree;
Action:= TCloseAction.caFree;