Kryptering

Jeg har prøvet at lave et program der kan kryptere indholdet i en memo efter en krypteringskode. Hvis jeg laver krypteringskoden for lang kommer der en fejl.. det er ikke altid den samme her er 2:
http://www.geocities.com/huggebanden/krypterfejl.gif
http://www.geocities.com/huggebanden/kryptfejl2.gif

her er koden:
function krypt(tekst,kode:string):string;
var
  I,k: integer;
begin
  I := 0;
  repeat
      for k := 1 to length(kode) do
      begin
        inc(I);
        tekst[I] := chr(ord(tekst[I])+ord(kode[k]));
      end;
  until I >= length(tekst);
  result := tekst;
end;

function dekrypt(tekst,kode:string):string;
var
  I,k: integer;
begin
  I := 0;
  repeat
      for k := 1 to length(kode) do
      begin
        inc(I);
        tekst[I] := chr(ord(tekst[I])-ord(kode[k]));
      end;
  until I >= length(tekst);
  result := tekst;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo2.Text := krypt(memo1.Text,edtKryptkode.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  memo1.Text := dekrypt(memo2.Text,edtKryptkode.Text);
end;

skal jeg lave koden helt om. eller er der et eller andet jeg har overset?