Шифр Цезаря

[Goracio]

Ребят очень надо ваша помощь!
у меня поставлено задание написать программу для кодировки методом Цезаря с ключевым словом и числовым ключом!
Дело я вже маю але я не можу зрозуміти як це з ключовим словом????
щей плюс до всього воно нормально не шифрує коли вводити ключ 12 то воно не все кодує чоиусь якщо хтось може помгти то був би дуже вдячний)
заздалегіть Спасибі
П.С. програма взята з цього сайту але трішки перероблена)

function Cesar(Key:integer; S:String; Decode:Boolean):string;
var
 i:integer;
 st:string;
Begin
 st:=S;
 if decode then key:=-key;
 for i:=1 to length(s) do
  begin
  st[i]:=Chr((Ord(S[i])+Key));
  end;
 result:=st;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
 i,Key:Integer;
Begin
  begin
 memo2.Clear;
 Key:=StrToInt(Edit1.Text);
 for i:=0 to Memo1.Lines.Count-1 do
  Memo2.Lines.Add(Cesar(Key,Memo1.Lines[i],False));
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 i,Key:Integer;
begin
 memo3.Clear;
 Key:=StrToInt(Edit1.Text);
 for i:=0 to Memo1.Lines.Count-1 do
  Memo3.Lines.Add(Cesar(Key,Memo2.Lines[i],true));
end;

[Goracio]

Спасибо всем проблема решына!!!!!