Нашёл такую странную процедуру - UniqueString называется. Вот меня вопрос мучает: зачем она нужна? В каком случае её применить?
И ещё вопрос о её работе. Если счётчик ссылок строки больше одного, то она копирует строку из S в новое место и в переменную S записывает адрес этого нового места. А куда девается исходная стока, имевшая до этого неединичный счётчик ссылок? Происходит утечка или она уничтожается?