Ilość znaków w danym przedziale wierszy

Chcę policzyć ilość znaków z danego przedziału linii w memo np od 1 do 10 linii (gdy Memo ma np. 15 linii).
Napisałem taki kod ale podaje mi jakieś bzdurne wartości. Gdzie robię błąd?

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
  for i:=1 to 10 do begin
  for j:=1 to StrToInt(Memo1.Lines[i]) do
  Label1.Caption:=IntToStr(Length(Memo1.text));
  end;
end;

po prostu nie sumujesz:

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
suma: integer;
begin
  suma := 0;
  for i:=1 to 10 do begin
  suma := suma + Length(Memo1.Lines.Strings[i];
  Label1.Caption := IntTostr(suma);
end;

OK dzięki.
Kodzik jeszcze trochę poprawiłem bo przekłamania podawał. :)
Teraz wygląda tak:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
suma: integer;
begin
  suma := 0;
  for i:=0 to 10 do begin
  suma := suma + Length(Memo1.Lines.Strings[i]);
  Label1.Caption := IntTostr(suma);
end;
end;