Найти сумму всех четных чисел от 1 до 100

procedure TForm1.Button1Click(Sender: TObject);
var s,i:integer; 
begin
s:=0; 
i:=2; 
s:=StrToInt(Edit1.Text);
i:=StrToInt(Edit2.Text);
while i<101 do begin
if (i mod 2) =0 then s:=s+i; 
i:=i+1; 
end;
Edit3.Text:=IntToStr(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,sum:Integer;
begin
sum:=0;
for i := 1 to 100 do
if i mod 2=0 then
sum:=sum+i;
Edit3.Text:=IntToStr(sum);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, k, l, Summ: Integer;
begin
  Summ := 0;
  l := StrToInt(Edit1.Text);// вводим нижнюю границу  к примеру 1
  k := StrToInt(Edit2.Text);// вводим верхнюю границу  и 100
 
  for i := l to k do
    if i mod 2 = 0 then
      Summ := Summ + i;
 
  MessageDlg('Сумма четных чисел от '+IntToStr(l)+ ' до '+IntToStr(k)+' равна '+IntToStr(Summ),
              mtInformation, [mbOK], 0)
end;