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

[darkbits]

todo marcha bien

me da error cuando le toca esta linea

_DM.consulta2.ExecSQL;

Código SQL [-]
  _DM.consulta1.SQL.Text:= 'select * From inalmacen Where id_inal='+idprod.text;
    _DM.consulta1.Open;
    _DM.consulta2.SQL.Text:= 'update INALMACEN set cantidad_inal=:auxcantidad_inal Where id_inal='+ idprod.text;
    _DM.consulta2.ParamByName('auxcantidad_inal').Value:=inttostr(strtoint(_DM.consulta1.FieldByName('ca  ntidad_inal').Value) - strtoint(cantidad.Text)) ;
    _DM.consulta2.ExecSQL;
    _DM.consulta2.Close;
    _DM.consulta1.Close;
    _DM.talmacen.Active:=false; // false y true lo realizo para  actualizar no se si hay otra mejor forma.
    _DM.talmacen.Close;
    _DM.talmacen.Active:=true;