[Михалыч]

Неправильно считает, вот код. Когда ввожу счетчик=4 и до 5 Сумму строк выдает 0

Код:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,Summa,i : integer;

begin
a:= StrToInt(Edit5.Text);
b:= StrToInt(Edit1.Text);

for i:=a to b do
begin
Memo1.Lines.Add(IntToStr(i));
Edit3.Text:=IntToStr(Memo1.Lines.Count);
end;

begin
//Memo1.Text := StringReplace(Memo1.Text, #13#10, #32, [rfReplaceAll]); //Сначала избавимся от лишних переносов
//Memo1.Text := StringReplace(Memo1.Text, #32, #13#10, [rfReplaceAll]); //Затем заменим все пробелы переносами т.е. одна строка - одно число
Summa:=0;
for i:=a to Memo1.Lines.Count do
Inc(Summa, StrToIntDef(Memo1.Lines.Strings[i],1));
Memo1.Lines.Add(('Сумма строк= '+ IntToStr(Summa)));
end;