¿Como asignar action:=caFree por defecto para todo formulario?

[Cheerpipe]

pero, es posible hacerlo modificando el procedimiento Tcustomform.close??
bueno si se podria, el problema que tengo es ke, cuando intento modificar se procedimiento de la clase Tform, simplemente no funciona, es decir, no me toma ese codigo......Se puede modificar ese procedimiento??


EDIT:

Ya solucione mi problema, encontre la directiva ke estaba buscando

el codigo me quedo como sigue:

Código Delphi [-]
public
  procedure Close; reIntroduce;

Código Delphi [-]
procedure TMDIForm.Close;
var
  CloseAction: TCloseAction;
begin
  release;
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      release;
      exit;
     // Con las 2 lineas anteriores, el form siempre se destruira
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;

[roman]

Te estás complicando más de la cuenta. Si te fijas, tu método TMDIForm.Close, no está sino copiando el método base de TCustomForm. Ese método base llama a DoClose. Es éste el que tienes que redefinir:

Código Delphi [-]
protected
  procedure DoClose(var Action: TCloseAction); override;

Código Delphi [-]
procedure TForm2.DoClose(var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
end;

// Saludos

[Cheerpipe]

jejeje tienes toda la razon.

Tu ejemplo es justo lo que necesitaba, muchas gracias .