procedure UniqueString(var Str: string);

Процедура UniqueString обеспечивает равенство единице значения счетчика ссылок на Str. Если на Str нет других ссылок, UniqueString не выполняет никаких действий; в противном случае UniqueString создает новую копию строки и присваивает ее переменной Str.
UniqueString - настоящая процедура.

• Обычно в вызове UniqueString нет необходимости. Delphi использует для строк семантику "копирование при записи", т.е. при наличии нескольких ссылок на строку модификация одной из ссылок вызывает создание новой строки, так что другие ссылки продолжают указывать на оригинал.
• Если строка преобразуется к типу PChar, Delphi сделает так, что PChar будет указывать на уникальный экземпляр строки. Если строка модифицируется через указатель PChar, другие ссылки на исходную строку останутся неизменными.