Почему не годится TInterfacedObject: он использует InterlockedIncrement, а мне эта убийственно медленная штука - как рыбе зонтик, мне надо для однопоточной системы (или многопоточной, где пулы объектов по любому огорожены критическими секциями, и имеют каждый свой отдельный диспетчер памяти).
Пытался перехватить оператор присваивания, чтобы поднимал исключение в райнтайме и присвоить можно было, только передавая получателя как var параметр методу присваемого экземпляра класса.
Не сработало.
З.Ы. Это я к тому, чтобы под корень вырезать из своей системы сборщик мусора с его кладбищем.