error en asignacion de campos en un dbgrid con seleccion multiple

[marcoszorrilla]

Button.onclick(Sender:TObject)

var

i:Integer;

begin

if DBGrid1.SelectedRows.Count>0 then

with DBGrid1.DataSource.DataSet do

begin

for i:=0 to DBGrid1.SelectedRows.Count-1 do

begin

GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
MiTabla.Edit;
FieldValues['pendiente']:=false;

FieldValues['produccion']:=true;

end;

dsflistadoart.Post;

dsflistadoart.Close;

dsflistadoart.Open;

dsflistadoproduccion.close;

dsflistadoproduccion.Open;

end;

end;

Un Saludo.