Actualizar campo de dbgrid

[[Caral]]

Hola
Para mi anda por aqui la cosa:

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var 
I:Integer;
begin
    Query1.Close;
    Query1.SQL.Clear;
  if DBGrid1.SelectedRows.Count > 0 then begin
     with DBGrid1.DataSource.DataSet do begin
                   for i := 0 to DBGrid1.SelectedRows.Count-1 do begin
                       GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
                       Query1.SQL.Text:= 'Update Fecha_venc Set Fecha_venc= :fecha Where Docto  = :docto';
                    Query1.ParamByName('docto').AsString:=  Query1.FieldByName('docto').AsString;
                    Query1.ParamByName('fecha').AsDateTime:= Query1.FieldByName('Fecha_Apli').AsDateTime + StrtoInt(Edit4.Text);
                    Query1.ExecSQL;
                   end;
            end;
       end
    else
// Todo lo que tengas que hacer
   If MessageDlg('Desea actualizar los registros',mtConfirmation,[mbYes,mBNo],0)= MrYes Then Begin
       Query1.SQL.Text:= 'Update cuen01 Set Fecha_venc=Fecha_apli  +  : Dias  Where cclie= :cclie';
       Query1.ParamByName('cclie').AsString:= Edit1.Text;
       Query1.ParamByName('dias').AsInteger:= StrtoInt(Edit4.Text);
       Query1.ExecSQL;
    End;
End;

No se la verdad no me gusta el add. y veo muy repetido el codigo
Saludos