[Alegun]

Извнт, я код смотрел а не проблему - по нему выходило что надо подменять символ "Ё" на "Е" при наборе текста в мемо, это и было подправлено - тогда уберите процедуру подмены у мемо и добавьте 2 строчки в Button1Click, см. привязку к местоположению строк

Код:

...

ish:=IshMemo.Text;

ish:=StringReplace(ish,'ё','е',[rfReplaceAll]);// заменяем ё на е
ish:=StringReplace(ish,'Ё','Е',[rfReplaceAll]);// заменяем Ё на Е

...

так при наборе ёлки будут отображаться, а перед шифрованием все они превратяться в ели