[Alegun]

Код:

q:= StringReplace(q, 'Ё', 'Jo', [rfReplaceAll]);