[[Caral]]

Hola
Bueno primero tengo varias dudas:
1: Por que usar una variable sQuery en doden pones la sentencia sql?
2: Dias me suena a date no a integer ?
En tal caso, para empezar lo haria asi:

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
Query1.Close;
Query1.SQL.Text:= 'Update cuen01 Set Fecha_venc=Fecha_apli+ias';
Query1.ExecSQL;
Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
End;
end

Con esto ya simplificamos un poco el codigo.
Vamos a por otra.
Saludos