procedure TForm1.btn1Click(Sender: TObject);
var i,j:integer;
begin
    j:=0;
    for i:=0 to 100 do
    begin
        inc(i,2);
        j:=j+i;
    end;
    caption:=intToStr(j);
end;错误信息:
Assignment to FOR-LOOP variable i