Таблица ASCI

//зашифровка
  procedure Code (Var text:string; password:string);
  Var i:integer;  PasswordLength: integer;
     begin
      PasswordLength := length(password);
      if PasswordLength = 0 then Exit;
         for i:=1 to Length(text) do
           text[i] := chr(ord(text[i]) + ord(password[i mod PasswordLength + 1]));
     end;
  //расшифровка
  procedure Decode (Var text:string; password:string);
  Var i:integer;  PasswordLength: integer;
     begin
      PasswordLength := length(password);
      if PasswordLength = 0 then Exit;
         for i:=1 to Length(text) do
      //из текста в числа Ord. из чисел в текст Chr
           text[i] := chr(ord(text[i]) - ord(password[i mod PasswordLength + 1]));
     end;

procedure TForm1.Button1Click(Sender: TObject);
//кнопка зашифровать
Var s:string;
begin
    s := Memo1.Text;
    code(s, Edit1.Text);
    Memo2.Text:= s;
end;
//кнопка расшифровать
procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
  s:=Memo2.Text;
   Decode(s, Edit1.Text);
   Memo1.Text:= s;
end;