procedure TForm1.ADOQuery1AfterPost(DataSet: TDataSet);
var
r : integer;
begin
DataSet.AfterPost := nil;
r := DataSet.RecNo;
DataSet.First;
while not DataSet.Eof do
begin
DataSet.Edit;
DataSet.FieldByName('你的字段').AsBoolean = DataSet.RecNo = r;
DataSet.Post;
DataSet.Next;
end;
DataSet.AfterPost := ADOQuery1AfterPost;
end;