Простое шифрование текста методом перестановки букв

//Открыть файл
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Title:='Открытие файла';
  OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
  If OpenDialog1.Execute Then
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
 
//Сохранить файл
procedure TForm1.Button3Click(Sender: TObject);
begin
  SaveDialog1.Title:='Сохранение зашифрованного файла';
  SaveDialog1.FileName:=OpenDialog1.FileName;
  SaveDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
  If SaveDialog1.Execute Then
  Memo2.Lines.SaveToFile(SaveDialog1.FileName);
end;
 
//Шифровать
procedure TForm1.Button2Click(Sender: TObject);
Var
  i,j : Integer;
  s : String;
begin
  s:=Memo1.Text;
  For i:=0 To Length(s) Do
  Begin
    j:=(Ord(s[i])+20) And $FF;
    If j=0 Then j:=20;
    s[i]:=Char(j);
  End;
  Memo2.Text:=s;
end;
 
//Разшифровать
procedure TForm1.Button4Click(Sender: TObject);
Var
  i,j : Integer;
  s : String;
begin
  s:=Memo1.Text;
  For i:=0 To Length(s) Do
  Begin
    j:=Ord(s[i]);
    If j=20 Then j:=0;
    s[i]:=Char((j-20) And $FF);
  End;
  Memo2.Text:=s;
end;
 
end.