ejemplo de insert, drop, delete, update firebir + delphi

[darkbits]

hice el consejo y nada.

Código SQL [-]
      _DM.consulta1.SQL.Text:= 'select * From inalmacen Where id_inal='+ StringGrid1.Cells[1,stringGrid1.Row];
      _DM.consulta1.Open;
      _DM.consulta2.SQL.Text:= 'update INALMACEN set cantidad_inal=:auxcantidad_inal Where id_inal='+ StringGrid1.Cells[1,stringGrid1.Row];
      _DM.consulta2.ParamByName('auxcantidad_inal').Value:=inttostr(strtoint(_DM.consulta1.FieldByName('ca  ntidad_inal').Value) + strtoint(StringGrid1.Cells[5,stringGrid1.Row])) ;
      _DM.consulta1.Close;
      _DM.consulta2.ExecSQL;
      _DM.consulta2.Close;

encontre este detalle si pueden ayudarme:

tengo 10 monitores en stock si la PC1 realiza la venta de 1 Monitor con el codigo q pego arriba me muestra 9 monitores en stock.
pero si habro la aplicacion en otra PC2..a.. PC5 me muestra que tengo sigue 10 monitores a la venta si le digo q quiero vender 1 ahi esta el problema. se bloquea todo,.

entonces veo que le falta algo despues de
_DM.consulta2.ExecSQL;