шифр цезаря с кодовым словом и сдвигом

[Dark Energy]

алфавит - английские строчные буквы , сдвиг +3 , ключ - слово которое мы вводим потом с клавы. вот то что у меня получилось , но работает как-то неправильно, в чем проблема? делал на основе шифра виженера.
procedure TForm1.Button1Click(Sender: TObject);
begin
shifr:='';
slovo:=edit1.Text;
kluch:=edit2.Text;
if length(kluch)<length(slovo) then
kluch:=kluch+kluch+kluch;
for i:=1 to length(slovo) do
begin
sl:=slovo[i];
kl:=kluch[i];
sh:=chr(64+(ord(sl)+ord(kl)+3)mod(2 6));
shifr:=shifr+sh;
end;
edit3.Text:=shifr;
end;