[angvelem]

В твоём случае Memo1.Lines[0]
Расширил тебе таблицу символов, на все стандартные символы. Также расширил таблицу подмены.
Но всё-таки это очень простой пример и ломается на раз. Возможно использование как обучающий пример, не более.