Anfängerfrage, TMemo & TStringlist

[MaGe]

Moin, moin,

ich lerne so abends nebenbei seit letzer Woche Delphi und stoße natürlich als Anfänger immer wieder auf kleine Probleme.
Ich hab mir in den Sinn gesetzt aus einem TMemo-Feld den eingegeben Inhalt in ein TStringList zu schreiben und wieder zurück.
Leider klappt das nicht so wie ich mir das Vorstelle und nach einer etwas längeren Woche (Gehirn etwas ausgepowert) und einer kurzen Suche hier im Forum bin ich nicht klüger.

Delphi-Quellcode:

procedure TForm1.Button1(Sender: TObject);
var
  mylist : TStringList;
  i : Integer;
begin
   mylist.Create;
   if Memo1.MaxLength >0 then
   begin
      for i:= 0 to Memo1.MaxLength do begin
          mylist.add(Memo1.Lines[i]);
      end;
   end;
end;

Naja compilieren lässt sich das gebe ich dann im TMemofeld z.b.:
alpha
beta
delta
usw.

ein dann bekomme ich bei MaxLength 0
Lass ich mir aber alles als Memo1.Text geben bekomme ich einen String, habs mir auf ein Label ausgegeben.
Jetzt steh ich aber auf der Leitung (wieder einmal), warum bekomme ich bei Lines nix raus und warum ist da MaxLength 0? Hat da einer noch am Freitag abend lust mir (wieder mal) von der Leitung zu helfen?

Gruß

Ma.Ge.