1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=1 to length(memo1.text) do begin
    showmessage(memo1.text[i]+' - '+chr(ord(memo1.text[i])+1));
    case text[i] of
      #122: memo2.text:=memo2.text+ #97;
      #90:  memo2.text:=memo2.text+ #65;
      #65..#89: memo2.text:=memo2.text+ chr(ord(memo1.text[i])+1);
      #97..#121: memo2.text:=memo2.text+ chr(ord(memo1.text[i])+1);
      else memo2.text:=memo2.text + Text[i];
    end;
  end;
end;