[[egostar]]

Haber, yo sigo insistiendo, debes usar otro Query para la actualización, no puedes hacerlo sobre el mismo Query1.

Así debería de verse y no tendrias ningún problema.

Código Delphi [-]
for i := 0 to DBGrid1.SelectedRows.Count-1 do begin
    GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
    QueryTrab:='Update cuen01 set Fecha_venc=Fecha_apli+:dias Where cclie= :cclie And Docto= :docto';
    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add(Querytrab);
    Query2.ParamByName('docto').AsString:=  Query1.FieldByName('docto').AsString;
    Query2.ParamByName('cclie').AsString:=Edit1.Text;
    Query2.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
    Query2.ExecSQL;
end;
Query1.Close;
Query1.Open;

Salud OS.