Исправление ошибки

replacetext - функция, а не процедура. Ошибочка вышла.