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

[s-off]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i  : Integer;
begin
   for i := 0 to Memo1.Lines.Count - 1 do begin
      Memo2.Lines.Add(Memo1.Lines.Strings[i]);
   end;
end;

[mkinzler]

Memo2.Lines.Text := Memo1.Lines.Text;

[s-off]

Zitat von mkinzler:

Memo2.Lines.Text := Memo1.Lines.Text;

Zitat von Ricoo:

Das soll zeilenweise passieren.

[mkinzler]

das Ergebnis ist das selbe.

[s-off]

Zitat von mkinzler:

das Ergebnis ist das selbe.

Schon klar,

vielleicht möchte er aber in einem weiteren Schritt jede zu übertragene Zeile analysieren, und dann nur bedingt übertragen.

Edit: Rechtschreibfehler

[Ricoo]

Danke für die schnellen Antworten!
Maan, da hab ich ja voll viel überflüssiges Zeug reingehauen. Danke s-off!