Actualizar campo de dbgrid

[jorelivi]

Mira Caral,

Este es mi codigo que tengo en un boton para actualizar dos situaciones diferentes dentro de un grid.

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var sQuery:String;
var I:Integer;
begin
  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
           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
  else
  // 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 Where cclie=:cclie';
       Query1.Close;
       Query1.SQL.Clear;
       Query1.SQL.Add(sQuery);
       Query1.ParamByName('cclie').AsString:=Edit1.Text;
       Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
       Query1.ExecSQL;
    End;
end;

Espero esto sea mas claro, sigo en linea y gracias por tu tiempo