[[Caral]]

Hola jorelivi
Primero lo voy a arreglar un poco para entenderlo mejor, es bueno que te fijes en la guia de estilo del foro.

Código 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

Saludos