Problema con limite de instancias de objetos (TBitBtn)

[[Lepe]]

Código Delphi [-]
procedure TFControlReportesExcel.LimpiarListaElementos;
var
   i: integer;
   strClass :string;
begin
   Self.PonerMsgEspera('Eliminando elementos...');
   try
     try
     for i := 0 to slElementos.Count - 1 do
       if Assigned( slElementos.Objects[i] ) then
       begin
         strClass := sElementos.Objects[i].ClassName;
         slElementos.Objects[i]).Free;
       end;
    except 
        ShowMessage('error al liberar el '+ strClass');
    end;
   finally
      slElementos.Clear;
      Self.QuitarMsgEspera();
   end;
   panGuias.Width:= ScrollBox1.Width + SIZEX;
   panGuias.Height:= ScrollBox1.Height + SIZEY;
   panDesign.Width:= ScrollBox1.Width;
   panDesign.Height:= ScrollBox1.Height;
end;

1º- Si en un except no haces nada, estás ocultando esa excepción, por tanto jamás encontrarás el fallo que hay en esa rutina. Entiendo que estando desesperado o simplemente apresurado, lo hayas puesto.

2º- ¿para qué está el polimorfismo en delphi? pues a usarlo. Todos las clases heredan de TObject en delphi, pero si llamamos a Tobject.Free, delphi sabrá que ese objeto es en realidad un TobjTitulo o lo que sea, por tanto, ejecutará el TobjTitulo.Free o el destructor que le corresponda.

3º- Ese bucle está bien, por tanto, olvida ese código y pasa a mirar si en algún momento estás liberando alguno de esos objetos. Por último pasa por mirar el método destroy de cada uno de tus clases: TobjTitulo, TobjFormulaExcel, etc porque ahí estará el error. De hecho he modificado el código para que salte un ShowMessage en la clase que te da el error al liberarlo de memoria, creo eso te ayudará a localizar el error.

Si sale el error antes que el ShowMessage, es precisamente porque objects[i] tiene un puntero no válido, es decir, es distinto de nil, pero apunta a una zona de memoria que ya se liberó, ataca por ahí.

Saludos