Есть небольшая неточность -- при добавлении нуля в конец происходит копирование строки, но и длина ее увеличивается на один, поэтому, нобходимо удалять после копирования последний символ, или обрезать строку, например -- SetLength(txt, Length(txt) - 1)