Не дорабатывает рекурсия в деструкторах

//Деструктор базового класса:
__fastcall TGeometry::~TGeometry() {
    InDestruction = true;
    if (FConstraints) {
        while (ConstraintCount)
            delete Constraint[0];
        delete FConstraints;
    }
    FSketch->ElementDeleted(this);
}
//Деструкторы порожденных классов и методы обработки оповещений
bool __fastcall TDot::CheckSelfDestruct() {
    return !CurvesCount;
};
 
void __fastcall TDot::DetachCurve(TCurve *aCurve) {
    if (InDestruction)
        return;
    if (FCurves->Remove(aCurve) >= 0) {
        aCurve->DetachDot(this);
        if (CheckSelfDestruct())
            delete this;
    }
}
 
__fastcall TDot::~TDot() {
    InDestruction = true;
    for (int i = CurvesCount - 1; i > 0; i--)
        Curve[i]->DetachDot(this);
    delete FCurves;
}
bool __fastcall TCurve::CheckSelfDestruct() {
    return DotCount < 2;
};
 
void __fastcall TCurve::DetachDot(TDot *aDot) {
    if (InDestruction)
        return;
    if (FDots->Remove(aDot) < 0)
        return;
    aDot->DetachCurve(this);
    if (CheckSelfDestruct())
        delete this;
}
 
__fastcall TCurve::~TCurve() {
    InDestruction = true;
    for (int i = DotCount - 1; i > 0; i--)
        Dot[i]->DetachCurve(this);
    delete FDots;
}
//TLine и TCircle порождены от TCurve
bool __fastcall TCircle::CheckSelfDestruct() {
    return !DotCount;
}
 
//метод обработки оповещения об удалении контейнера
void __fastcall TSketch::ElementDeleted(TGeometry *Element){
       FElements->Remove(Element);
}