> -- id_ler писал(а):
> В модуле Services дополняем процедуру SameType вполне тривиальной строкой

Эта "тривиальная строка" приводит к бесконечной рекурсии.
При вставке текста в TextModels.StdModel вызывается Services.SameType.