跟着小甲鱼老师学习Delphi的连加发现一个错误

illzt

小甲鱼是首个数加上他定义的一个0的变量（每次+1）做末数-首数的差次
这样无论如何都是  个数+1,个数+2,个数+3然后循环  所以如果个数不是1或是其他就会出现错误.
连加应该是这样算的
Var
    i,l,c:integer;
begin
    l:=0;
    i:=0;
  if (Edit1.text='') or (Edit2.text='') then
    messagebox(handle,'没错它会报错','报错',0)
  else
  begin
    i:=StrToInt(Edit1.Text);
    l:=StrToInt(Edit2.Text);
      if (l<0) then
      messagebox(handle,'没错它会报错','报错',0)
      else
      begin
      c:=(i+l)*(l-i+1)div 2;   //(首数+末数）×数的个数÷2
      Button1.Caption:=IntToStr(c);
    end;
  end;
end;