у меня вопрос по среде программирования делфи

от чего возникает такая ошибка [Error] Unit1.pas(34): Assignment to FOR-Loop variable 'b'
вот код procedure TForm1.btn1Click(Sender: TObject);
var a, b, c: Integer;
begin
a:=StrToInt(edt1.Text);
c:=1;
for b:=1 to a do
begin
b:=b+1;
edt1.Text:=FloatToStr(b);
end;
end;
end.