Memo - zeigt nur 2 Lines statt 12 Lines an...

[Codix32]

Während die Listbox die 12 Items ausgibt, gibt das Memo nur die Lines 0 und 1 aus, warum?

Delphi-Quellcode:

uses DateUtils;
...
...
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
 for i := 0 to 13 -1  do
 begin
   Memo1.lines.strings[i] := timetostr(IncSecond(now, 10+(i*8)))+'   '+'Test '+ inttostr(i);
   Listbox1.Items[i]:=  timetostr(IncSecond(now, 10+(i*8)))+'   '+'Test '+ inttostr(i);
 end;
 end;