Компонент Position ведет отсчет от начала строки, ты получаешь 47-й символ от начала, а компонент Copy в режиме RigtToLeft берет отсчет с конца. Ты суешь ему Pos=47, вот он исправно от конца и отсчитывает 47, а должен был отсчитать всего 53-47+1=7.
flint2 тут решил применить кардинальные меры и переделать весь компонент, но так нельзя подходить к решению вопроса, касающегося одной конкретной задачи. Тк это может негативно сказаться на остальных пользователях.