如何把stringgrid 中的数据更新到access数据库？

stringgrid中的数据如下：
指标        初级权重      上级指标
11           0.3          aa
12           0.4           aa
13           0.3           aa
我是想把初级权重的值更新到数据库的表中，数据库中“初级权重”为5位的小数。
我的代码如下：
procedure TfmXiugai.BtnOkClick(Sender: TObject);
var
  i:integer;
begin     //È·ÈÏÐ޸ģ¬ÐèÒª°ÑÊý¾Ý¸üе½Êý¾Ý¿âÖÐ
  for i := 1 to stringgrid1.RowCount-1 do
  begin
    self.ADOQuery1.Close;
    self.ADOQuery1.SQL.Clear;
    self.ADOQuery1.SQL.Text:='update zhibiaobiao set '+stringgrid1.Cells[1,0]+
      '= '+stringgrid1.Cells[1,i]+ 
      ' where "'+stringgrid1.Cells[0,0]+
      '"= "'+stringgrid1.Cells[0,i]+'"';
    //showmessage(adoquery1.SQL.Text);
    self.ADOQuery1.ExecSQL;
  end;问题是：
1. stringgrid1.cells[1,i]为文本格式，如何与数据库中的小数格式保持一致？
2. 为什么不更新记录呢？是不是因为第一个原因？求高人解答。。，