EMultiFree. Как исправить ?

[Человек_Борща]

Доброго времени суток!

Имеется 4 класса, вот в таком представлении:

-TRulesManager(Контейнер для TRule) - наследник TList
--TRule(Контейнер для TTargetsList) - наследник TObject
---TTargetsList(Контейнер для TTarget) - наследник TList
----TTarget - наследник TObject

При уничтожении TRulesManager возникает EMultiFree(Multi Free memory leak).

Деструкторы наследуемых списков выглядят вот так:

destructor TTargetsList.Destroy;
var
  i: Integer;
begin
  for i := 0 to Count - 1 do
    Target[i].Free;
    inherited;
end;

Деструктор того, что храним вот так:

destructor TTarget.Destroy;
begin
  inherited;
end;

Есть идеи, как это лечить?

[Stilet]

--TRule(Контейнер для TTargetsList) - наследник TObject
---TTargetsList(Контейнер для TTarget) - наследник TList

Лучшие контейнеры для обьектов в Делфи это TObjectList и TComponentList из contnrs. ИСпользуя их проще следить за утечками, тогда если TTargetsList:TObjectList будет код сократится:

destructor TTargetsList.Destroy;
begin
    TargetList.Free;
    inherited;
end;

[Человек_Борща]

Вылечил ObjectList'ом. Надо бы посмотреть нутно этого класса.

[phomm]

Кстати, я недолюбливаю TObjectList , его метод Clear не вызывает нотифай (одна внутренняя его вещь) в результате чего именно клиаром не чистятся(фри) объекты в нём. Лечил написанием наследника с перекрытым клиар.