UPDATE таблицы

[semak777]

Всем привет! Появилась небольшая проблема, есть две таблицы master-detail, при удалении записи, необходимо в третьей таблице обновить значения "количество", т.е. прибавить к уже имеющему значению, то которое нужно удалить. Проблема в том, криво обновляется запись, а именно в основном прибавляется в два раза больше, чем нужно! Что можно сделать?

DM.QMoreConsumption.Close;
        DM.QMoreConsumption.SQL.Text := 'select * from more_consumption where id_consumption = :id_consumption';
        DM.QMoreConsumption.Open;


        with DM.QMoreConsumption do
          begin
        while not EOF do
        begin
        DM.QProduct.SQL.Text := 'update product set pquantity = pquantity + :mcquantity where id_product = :id_product';
        DM.QProduct.ParamByName('mcquantity').Value := DM.QMoreConsumption.FieldByName('mcquantity').Value;
        DM.QProduct.ParamByName('id_product').Value := DM.QMoreConsumption.FieldByName('id_product').Value;
        DM.QProduct.ExecSQL;
        Next;
        end;
        end;

Немного уточню, что увеличивается в два раза последняя запись в Grid'e