descontar mercancia de una tabla a otra

[elsamurai]

saludos a todos,estoy terminado un pequeña aplicacion que tendra el fin de registrar todas las mercancia que la empresa compre y venda,tendo dos tablas hechas en access y tengo el siguiente problema,pense que lograr descontar la mercancia vendida en una tabla de otra era algo parecido a una calculadora y asi lo hice,despues de calcular se graba y no me da ningun error,pero la mercancia en la otra tabla no se reduce,alguien me explica cual es mi error

Código Delphi [-]
procedure TFRMCLIENTES.ToolButton4Click(Sender: TObject);
var
 valor1,valor2,resultado:integer;
begin
  inherited;

  begin
  valor1:=strtoint(dbedit9.text);
  valor2:=strtoint(dbedit10.text);
  resultado:=valor1-valor2;
  dbedit9.text:=inttostr(resultado);
  end ;
if dm.adocliente.State=dsinsert  then
begin
dm.adocliente.Post;
dm.adocliente.Refresh;
dm.ADOPRODUCTO.Open;
dm.ADOPRODUCTO.Refresh;
dm.adoproducto.Close;
end
else
IF DM.ADOcliente.State=DSEDIT THEN
BEGIN
DM.ADOcliente.Post;
DM.ADOcliente.Refresh;
dm.adoproducto.Open;
dm.adoproducto.refresh;
dm.adoproducto.close;
END
ELSE
begin
showmessage('no se encuentra en estado de insercion')
end;

las tablas tablas adoproducto tube que abrirla y cerrarla manualmente porque tengo un codigo en el evento onclose para que se cierre,espero que alguien pueda ayudarme