Memofeld in StringList einlesen?

[Borschti]

Hallo,

zur Zeit versuche Ich mich ein wenig mit Memofeldern auseinanderzusetzen, geht eigentlich auch ganz gut vorran

Nur jetzt habe ich ein kleines Problem, also ich versuche, wie die Überschrifft schon sagt, den Inhalt meines Memofeldes in eine StringList einzulesen. Dies geschieht mit einer For-Schleife.

Delphi-Quellcode:

procedure TForm1.ColorButton1Click(Sender: TObject);
var text1: TStringList;
    i: Integer;
begin
text1 := TStringList.Create;

for i := 0 to Memo1.Lines.Count-1 do
 begin
  text1[i] := Memo1.Lines[i];
 end;

{for i := 0 to Text1.count do
 begin
  Memo2.Lines[i] := text1[i];
 end;}

end;

Den auskommentierten Teil bitte erstmal nicht beachten ^^

Also ich bekomme die Fehlermeldung: "Listenindex überschreitet das Maximum(0)".

So wie ich das verstehe ist das Maximum null, aber wieso? Ich habe insgesamt 10 Lines in Memo1.

Vielleicht ist auch irgendwas ziemlich simples schuld an dem Fehler, wie gesagt ist das erste mal das ich mit Memofeldern arbeite

mfg
Alex