[The Shadow]

Код:

  Edit2.Text:=StringReplace(Edit1.Text, 'и', 'ю', [rfReplaceAll, rfIgnoreCase]);
  Edit2.Text:=StringReplace(Edit2.Text, 'е', 'ё', [rfReplaceAll, rfIgnoreCase]);