Из-за неудачного названия процедуры. Согласно документации:
> -- Цитата:
> PROCEDURE  CloneOf (source: Model): ModelThis procedure should be used to obtain a new text from the same type as another existing text.
То бишь она делает объект такого же типа, но отнюдь не с тем же содержимым. По хорошему эта процедура должна называться как-то типа NewWithSameType.