Foros Club Delphi - Invalid Pointer Operation con Free y Assigned

Hola a todos, yo creo que tengo el mismo error... y me estoy volviendo LOOOOCO y no logro resolverlo. Seguramente sea una tontería, pero es que NO LO LOGRO.

Explico mi caso.

Estoy haciendo el modelo de negocios de un hotel, el cual explico brevemente:
- Clase THabitaciones (hereda de TComponent), que es básicamente una lista con componentes THabitacion (o TBaseHabitacion).
- Clase THabitacion (hereda de TComponent), representa una habitación como tal. Está formada basicamente por dos partes, Un componente GUI: TBaseGUI y un objeto Info: TBaseInfo.
- Clase TBaseGUI (hereda de TComponent), es el tope de una jerarquia para la representación gráfica de las habitaciones.
- Clase TBaseInfo (hereda de TObject), es el tope de una jerarquia para la información de las habitaciones. Va variando según el tipo en tiempo de ejecución.

En el form principal hago lo siguiente en el evento OnClose:

Código:

  

   ...

   TiposHabitaciones.Free;

   Habitaciones.Free;

La idea es:
1.- Destruir Habitaciones: THabitaciones (cuando creo una Habitacion: THabitacion hereda de TComponent y el Owner es Habitaciones, con lo cual automáticamente se liberan todas las THabitacion cuyo Owner sea Habitaciones).
2.- Cuando se destruye una Habitacion: THabitacion, básicamente tengo que destruir la Info pues hereda de TBaseInfo que a su vez hereda de TObject. GUI no hay que destruirlo, pues se autodestruye porque tiene como Owner la Habitacion
3.- Cuando se destruye un GUI: TGUIHab, debo liberar el bitmap.

A continuación pondré los métodos de destrucción de las clases en ese orden:

1.- Destrucción de Habitaciones: (en realidad no hago nada salvo Lista.Clear y Lista.Free).

Código:

   Debug('THabitaciones.Destroy: ComponentCount:' + IntToStr(ComponentCount));

   Debug('THabitaciones.Destroy: FLista.Count:' + IntToStr(FLista.Count));

   

   for i := 0 to FLista.Count -1 do

   begin

     H := ItemsByPos[i];

     if Assigned(H) then

     begin

           if H.Owner <> nil then

             Debug(H.Caption + ' Owned by: ' + TComponent(H.Owner).Name);

   //        H.FreeInfo;

   //        H.FreeGUI;

   //        H.Free;

     end;

   //  Lista.Objects[i].Free;

   end;

   

   Lista.Clear;

   Debug('THabitaciones.Destroy: ComponentCount:' + IntToStr(ComponentCount));

   

   Lista.Free;

   Debug('La lista interna ha sido liberada');

   inherited Destroy;

2.- Destrucción de Habitacion: Tengo qeu destruir sólo la Info (pero está comentado, pues sospecho que me da error en el Assigned(Info)) pues el GUI tiene como Owner la Habitación y se destruirá solo.

Código:

   Debug(Caption + ': THabitacion.Destroy: ComponentCount:' + IntToStr(ComponentCount));

   

   if Assigned(Info) then

   begin

     Debug(Caption + ': TBaseHab.Destroy - assignado. Tipo:' + Info.ClassName);

   //  FreeInfo;

   //  FreeGUI;

   end

   else

     Debug(Caption + ': TBaseHab.Destroy - no assignado');

   

   Debug(Caption + ': THabitacion.Destroy: ComponentCount:' + IntToStr(ComponentCount));

   inherited Destroy

3.- Destrucción de GUI.

Código:

  

   if Assigned(Owner) then

   begin

     Debug('Liberando bitmap de GUI de la habitacion: ' + TComponent(Owner).Name);

     FreeResources;

   end;

   

   Debug('TGUIHabIcon: ComponentCount=' + IntToStr(ComponentCount));

   

   //TODO: LLamar al heredado?