TIdComplex<T: class> = class(TIdCmpx, IIdComplex<T>)
...
  public
    class constructor Create;
    class destructor Destroy;
end;

TIdComplexManager = class(TSingleton)
...
  public
    class constructor Create;
    class destructor Destroy;
end;

class var virtual Catalog: TCatalog;

// Часть описания дженерик-классов
IIdComplex<T: class> = interface
TModObject = class(TSingleton, IModObserver, IModNotify)
TModObjectList<T: class> = class(TObjectList<T>, IModObserver, IModNotify, IModObjectList, IPrintString)
TIdCmpx = class(TId, IIdCmpx, IXMLObjectId, IXMLIdComplex, IPrintString)
TIdComplexDictionary<T: class; I: IIdComplex<T>> = class(TObjectDictionary<TIdCmpxKey, TIdComplex<T>>)
TModComplexList<T: class> = class(TModObjectList<T>)
TIdComplexList<T: class> = class(TObjectList<TIdComplex<T>>)

TIdComplexController<T: class; I: IIdComplex<T>> = class(TModObjectList<T>)
  property IdList: TIdComplexList<T: class>;  // список Id элементов
  property Dictionary: TIdComplexDictionary<T: class; I: IIdComplex<T>>; // словарь для быстрого доступа
end;

TIdComplex<T: class> = class(TIdCmpx, IIdComplex<T>)
  property Null: TComplexObject<T: class>;  // "Нулевой" элемент (при поиске, вместо nil)
  property Catalog: TIdComplexController<T: class; I: IIdComplex<T>>;  // Этот каталог мы используем везде...
end;

TComplexObject<T: class> = class(TModObject, IId, IIdComplex<T>, IIdCmpxGate)
public
  property Id: TIdComplex<T: class>;  // идентификатор объекта (может быть длинным и сложным)
end;

// Дальше идет реализация конкретных классов приложения

TIdOrg = class(TIdComplexCatalog<TOrg>)
... // данные конкретного идентификатора
end;

TOrg = class(TComplexObject<TOrg>, IModInfo, IXMLObject, IDataSetObject)
... // данные конкретного класса (элемента)
end;