小问题，来拿分，谢谢

Question

I赋给不同的值
为何stringgrid1.cells的内容只显示第一次赋值的后找到的库中的内容
　　　
　　（i赋值）     
　　　begin
     adoquery1.close;
     ftr:=lyr.selection.item(1);
     edit1.text:=inttostr(ftr.featureid);
     ADOQuery1.SQL.Add('select * from table_name where featureid='+inttostr(i)+'');
     ADOQuery1.Active:=true;
     stringgrid1.cells[1,1]:=adoquery1.Fields[3].asstring;
     stringgrid1.cells[1,2]:=adoquery1.Fields[4].asstring;
     end