FireMonkey искажает любой зашифрованный текст, почему?

procedure  TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//Заменяем перехваченный символ на следующий по порядку
Key := Chr(Ord(Key) + 1)
end;
 
procedure TForm1.Button1Click( Sender: TObject);
var
Ret: AnsiString; //Тип данных  – ANSI строка(массив символов)
I: Integer; // Тип данные – целые числа
begin
//копируем то что находиться в поле ввода во вспомогательную строку
//и заменяем каждый символ в строке на предыдущий по таблице ASCII
Ret := Edit1.Text;
for I := 1 to Length(Ret) do
Ret[I] := Chr(Ord(Ret[I]) – 1)
//копируем результат обратно в поле ввода по нажатию на кнопку
Edit1.Text := Ret;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Ret : String; // Тип данных – строка(массив символов)
  I : Integer; // Тип данных – целые числа
begin
  //копируем то что находиться в поле ввода во вспомогательную строку
  //и заменяем каждый символ в строке на предыдущий
  Ret := Edit1.Text;
  for I := 1 to Length(Ret) do
    Ret[I] := Pred(Ret[i]);
  //копируем результат обратно в поле ввода по нажатию на кнопку
  Edit1.Text := Ret;
end;
 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  KeyChar := Succ(KeyChar);
end;