замена символов по тексту

[Gordan007]

Всем привет нужна помощь как сделать в Delphi. Есть 2 поля memo в одном я пишу определенный текст нажимаю на кнопку в другом memo этот текст должен преобразоваться а именно заменить каждую из букв в первом memo на другие (некая кодировка) Замена именно не слов а символов. например буква а заменяется на п, б на д и.т.д

[Serge_Bliznykov]

пробуйте

const
  Table1 = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  Table2 = 'ЕЦМКЬЙФВГХЛЪАЫЧОУСЖНЗЭЁЯДРЩЮПШИТБювлчэбжмхйъгпфшцктисщёьаяезрудоын';
var s : string;
  i, k : integer;
begin
  s := Memo1.Text;
  for i:=1 to Length(s) do begin
    k:= Pos(s[i], Table1);
    if k>0 then s[i] := Table2[k]
  end;
  Memo2.Text := s
end;