Actualizar campo de dbgrid

[jorelivi]

Tengo un Dbgrid con multiselect y solo quiero actualizar solo los que seleccione y me cambia todos los que muestra el DbGrid.

Solicito su ayuda y gracias por las indicaciones para llegar a este foro.

Código Delphi [-]
 Codigo Delphi

  if DbGrid1.SelectedRows.Count>0 then  // por si solo seleccionan uno...
     for I := 0 to DbGrid1.SelectedRows.Count-1 do
     begin
       DbGrid1.DataSource.DataSet.BookMark := DbGrid1.SelectedRows[i];
       // Todo lo que tengas que hacer
       If MessageDlg('Desea actualizar los registros',mtConfirmation,[mbYes,mBNo],0)= MrYes Then Begin
           sQuery:='Update cuen01 Set Fecha_venc=Fecha_apli+ias';
           Query1.Close;
           Query1.SQL.Clear;
           Query1.SQL.Add(sQuery);
           Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
           Query1.ExecSQL;
        End;
     end