Zeilenweise von Memo1 in Memo2 schreiben

[Ricoo]

Haaallo!

Ich steh irgentwie voll aufm Schlauch.
Ich möchte einen mehrzeiligen Text aus Memo1 in Memo2 übertragen.
Das soll zeilenweise passieren.

Nachdem ich das nun mindestens 1237912837 mal
durchgegangen bin und immernoch nich weiss, warum es nich macht, was es soll, brauch
ich nun ein wenig Hilfe...

So wie ich mir das überlegt hab, sollte Zeile für Zeile aus Memo1
gelesen werden und in Memo2 geschrieben werden. Das klappt aber nur bei
der ersten Zeile, die anderen werden nicht übernommen.

Delphi-Quellcode:

maxZeilen := Memo1.Lines.Count;

  For Zeile:= 0 to maxZeilen do begin
    For i:= 0 to length(TextZeile) do begin
      TextZeile:= Memo1.Lines[Zeile];
      Memo2.Lines[Zeile]:= TextZeile;
    end;
  end;

Danke schonmal