RichEdit.Lines in Array/Variable

[Matze]

Delphi-Quellcode:

var 
  tArray: Array of String; 
  i: Integer; 
begin 
  SetLength(tArray,RichEdit1.Lines.Count); 
  for i := 0 to RichEdit1.Lines.Count do begin // <== Fehler 
    tArrray[i] := RichEdit1.Lines.Strings[i]; 
  end; 
end;

Richtig wäre:

for i := 0 to RichEdit1.Lines.Count - 1 do
Edit: Tags korrigiert