FreeAndNil no libera los recursos

[doctorhd]

Gracias nlsgarcia y Al González por sus respuestas, me queda claro el origen del error.
Ahora a raíz del cambio indicado por ustedes, tengo el siguiente problema...(no se si sera necesario abrir un nuevo hilo)
al llamar a la función:

Código Delphi [-]
....
funGlobal.CloseObjet([FDetail]);{Destruimos las clases integrantes}
....

procedure TfunGlobal.CloseObjet(var AObjeto:Array of TObject);
var vIndice:Integer;
begin
  for vIndice:= Low(AObjeto) to High(AObjeto) do begin
    if Assigned(AObjeto[vIndice]) then FreeAndNil(AObjeto[vIndice]){Liberamos la memoria}
  end;{for}
end;{procedure}

tengo el siguiente error:

Código Delphi [-]
[dcc32 Error] ControlErroresUnit.pas(108): E2197 Constant object cannot be passed as var parameter

el cual indica que no puedo pasar una constante como parámetro a una función que requiere una variable, cuestión que no es cierta, ya que FDetail es un campo de una clase que a su vez también es una clase, aquí va la definición de ambas:

Código Delphi [-]
type
   TClassError = class
   private { Private declarations }
     FAccionOrigen:String;
     FTraceError:String;
     FMensajeError:String;
     FViewTraceError:Boolean;
     FTileMsg:string;
   public { Public declarations }
     constructor Create(AAccionOrigen:String;ATraceError:String;ATileMsg:String);
     procedure DisplayError;
     procedure SetMensajeError(AMensajeError:String);
     procedure SetViewTraceError(AViewTraceError:Boolean);
   public
     property AccionOrigen: String read FAccionOrigen;
     property TraceError: String read FTraceError;
     property MensajeError: String read FMensajeError;
     property ViewTraceError: Boolean read FViewTraceError;
   end;

type
   TControlErrores = class
   private { Private declarations }
     FDetail:TClassError;
     FTileMsg:string;
     procedure CreateMsgError(AError: Exception; AAccionOrigen:String; ATraceError:String);
     function ConstruyeMsgErroresDataSnap(AError:Exception; AAccionError:String; var AmsgSalida:String): Boolean;
     function ConstruyeMsgErroresBD(AError:Exception; AAccionError:String; var AmsgSalida:String): Boolean;
     function ConstruyeMsgErroresSistema(AError:Exception; AAccionError:String; var AmsgSalida:String): Boolean;
   public { Public declarations }
     constructor Create(AE:Exception;AAccionOrigen:String;ATileMsg:string);
     destructor Destroy; override;
     procedure DisplayError;
   public
      property Detail:TClassError read FDetail;
   end;

Saludos...

[[Al González]]

Podemos convenir que FDetail es una variable, concretamente un campo de una clase debidamente instanciada. Eso está bien, pero el "[FDetail]" que vemos en tu código es lo que formalmente se denomina un constructor de matriz abierta (open array constructor).

Ese término no se refiere a un método constructor, sino a una construcción gramatical que lleva corchetes con el propósito de formar una matriz "al vuelo". Al formarse esa matriz (array), cada uno de los elementos que contiene son considerados por el compilador como valores constantes (los punteros, no las instancias a las que apuntan). Por ello es que aparece el error que te da el compilador.

Si lo que necesitas es crear una rutina que reciba una matriz abierta de "variables" objeto, piensa en esa matriz o vector como una lista de punteros. Cada puntero señalando a una variable objeto. Para intentar ilustrarlo, tomo la función ghFreeNil de GH Freebrary que realiza una tarea similar (por ser el ejemplo más cercano que tengo).

Código Delphi [-]
  Type
    PObject = ^TObject;
  ...
  Procedure ghFreeNil (Const Objs :Array Of PObject);
  Var
    Obj :PObject;
  Begin
    For Obj In Objs Do  // Esta sintaxis de For es relativamente nueva en el compilador
      FreeAndNil (Obj^);
  End;
  ...
  // Llamamos a ghFreeNil dándole una matriz creada al vuelo (array de punteros a variables objeto)
  ghFreeNil ([@MiVariableObjeto1, @MiVariableObjeto2, @MiVariableObjeto3]);

¿Agarras la onda?

[doctorhd]

Gracias Al González. Y por supuesto Agarro la onda...
Saludos...