Извнт, я код смотрел а не проблему - по нему выходило что надо подменять символ "Ё" на "Е" при наборе текста в мемо, это и было подправлено - тогда уберите процедуру подмены у мемо и добавьте 2 строчки в Button1Click, см. привязку к местоположению строк
Код:
...
ish:=IshMemo.Text;
ish:=StringReplace(ish,'ё','е',[rfReplaceAll]);// заменяем ё на е
ish:=StringReplace(ish,'Ё','Е',[rfReplaceAll]);// заменяем Ё на Е
...
так при наборе ёлки будут отображаться, а перед шифрованием все они превратяться в ели