为什么ADOQuery1不能把修改提交到数据库中?

我想在DBGrid中双击一项记录后通过调用如下自定义过程来将修改的数据提交到数据库中
可是程序执行后数据库中的数据并没有改变，为什么？
procedure TForm1.MyDblClick;
begin
if dbgrid1.Fields[4].AsString<>'Yes' then
begin
if checkinput() then
 begin
    dbgrid1.Columns.Items[4].Color:=clwhite;
    with dbgrid1.DataSource.DataSet do
    begin
    edit;
    gotobook(pointer(dbgrid1.SelectedRows.items[0]));
    edit;
    fieldByName('HasPic').AsString:='Yes';
    dbgrid1.Fields[4].Asstring:='Yes';
    post;
    end;
  AddToDB(1);
  end;
end;
end;