[jorelivi]

Es correcto pero como actualizo los datos que estan despues del message, pues cuando no selecciono ningun registro del Grid si lo hace pero caso contrario me manda un error.

Código Delphi [-]
  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]));
          ShowMessage(Query1.FieldByName('Docto').AsString);
          // No se si estas usando un TTable o un TQuery.
          // Cambialo a tu conveniencia.
             sQuery:='Update Fecha_venc Set Fecha_venc=Fecha_apli+ias Where Docto=octo';
             Query1.SQL.Add(sQuery);
             Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
             Query1.ExecSQL;
        end;
      end;
    end

Disculpen soy novato.