Codier problem

[Saminem]

Ich habe ein Problem mit meinem Codier Programm.
Auf meiner Oberfläche habe ich 2 Memos und 1 Button.
Im ersten Memo Feld schreibe ich einen belibigen Text.
Wenn ich auf den Button klicke codiert er mir das.
Problem wenn ich im Memo mehrer zeile schreibe codiert er mir nur die letzte Zeile.

Delphi-Quellcode:

procedure TForm1.CodierenClick(Sender: TObject);
var
  N , Z , K , NZ ,  step :integer;
  Zeile , NZeile :string;
  ch , nch :char;

begin
  step:= StrToInt(Faktor.Text);
  For N:=0 TO memo1.Lines.Count -1 dO
  begin
  Zeile:=memo1.Lines[N];
  NZeile:='';
  For K:=1 To length (Zeile) do
  begin ch:=Zeile [K];
  Z:= ord(ch);
  NZ:=Z + step;
  //If(NZ>91)and(NZ<97) then
  //NZ := NZ -26 ;
  nch:=chr(NZ);
  NZeile:=NZeile + nch;
  end;
  end;
  Memo1.Clear;
  Memo2.Lines.add(NZeile);

Hoffentlich könnt ihr mir helfen