Jak rozkodować całego memo1?

Witam.
Posiadam taką oto procedurę:

procedure Decryption;
var
  i, z : integer;
  tekst : string;
begin
  tekst := Form1.Label34.Caption;
  z := 0;
  for i:=1 To Length(Form1.Label34.Caption) Do
  begin
    z := z + 1;
    tekst[i] := Char(Ord(tekst[i])+4 - z);
    if z < 4 then
    z := 0
  end;
  Form1.Edit1.Text := tekst;
end;

Ona działa, jednak bardzo bym chciał, żeby procedura odszyfrowywała zawartość z memo1 i zapisywała ją do memo2.
Potrafi ktoś to przerobić?
Dzięki.

Mam watpliwości czy Twoja procedura działa prawidłowo. Nie podoba mi się warunek

  if z < 4 then
      z := 0

Na starcie ustawiasz z:=0 i tym samym w pętli, po inkrementacji, "z" ma zawsze wartość 1

procedure Decryption;
var
  i, z: integer;
  tekst: string;
begin
  tekst := Form1.memo1.text;
  z := 0;
  for i := 1 To Length(tekst) Do
  begin
    inc(z);
    tekst[i] := Char(Ord(tekst[i]) + 4 - z);
    if z > 4 then
      z := 0
  end;
  Form1.memo2.Text := tekst;
end;