Disminuir cantidades en una tabla

[Nicolas_2011]

Buen dia foreros tengo un progamita en el cual se compra y se vende mercaderias tengo una tabla para VENTAS, una tabla para COMPRAS, una tabla para PRODUCTOS, (Ahi mas pero creo q estas involucran lo q necesito), Lo cual es lo siguiente ya se al momento de una venta o al momento de una compra, en la tabla de PRODUCTOS necesito que aumenten o disminuyen la cantidad 'stock' de producto que se esta vendiendo o comprando.
yo al momento de seleccionar la cantidad y el producto ejecuto esta linea de codigo

Código Delphi [-]
Fmodulo.Tproducto.Active := True; 
Fmodulo.Tproducto.Edit; 
Fmodulo.Tproducto ['Stock'] := Fmodulo.Tproducto ['Stock'] + Fmodulo.Tdetallefactura['cantidad']; 
Fmodulo.Tproducto.Active := False;

Esto siendo en el caso de la compra.

Pero por eso estoy aqui, al momento de probarlo voy a la BD reviso la tabla de productos y no modifico absolutamente nada.
alguna ayuda??