求救:我使用ADOQuery控件,读数据没有问题,更新数据有问题,为什么?(20分)

代码如下:
//修改阅读标志位
Timer1.Enabled := False;
S := DBGrid1.SelectedField.DisplayName;
S := 'where ' + S + ' =' + DBGrid1.SelectedField.AsString;

With ADOQuery1 do
begin
Close;
With SQL do
begin
Clear;
Add('Update r_application set flag = 1 ');
Add(S);
end;
ExecSQL;
end;

Timer1.Enabled := True;