witam jestem nowy napisałem program liczący sumę liczb od 1 do 100
program działa ale nie tak jak chcę zawsze jest wynik 100 nie rozumiem tego
procedure TForm1.Button1Click(Sender: TObject);
var zmienna:integer;
begin
For zmienna:=1 to 100 do
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
edit3.Text:=inttostr(a+b);
edit3.text:=inttostr(zmienna);
end;
end;