Array of String wird nicht als solches erkannt

[Fusel]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  setlength(Text,(memo1.lines.count));
  for i:=0 to memo1.lines.Count do
  begin
    Text[i]:=memo1.Lines[i];
    memo2.Lines[i]:=Text[i];
  end;
end;

Müßte mit

for i:=0 to memo1.lines.Count - 1 do

funktionieren