[firebase-br] nao atualiza

[Sampaio]

Ola pessoal gostaria de saber se alguem sabe me dizer onde esta o erro nessa 
slq pois eu mando executar e ela nao atualiza a respectiva tabela

Sql := TIBSQL.Create(Self);
          Sql.Database := dmDados.DBSGACANA;
          Sql.Transaction := dmdados.trSgaCana;
          Sql.SQL.Add('update PROD_QUIMICO set  PRD_ESTOQUE = PRD_ESTOQUE  + 
:ESTOQUE where  PRD_CODIGO =:PRD_CODIGO and PRD_PRODUTO =:PRD_PRODUTO');
          Sql.Prepare;
          Sql.ParamByName('PRD_CODIGO').AsString := PRODUTO.Text;
          Sql.ParamByName('PRD_PRODUTO').AsString := PRODQUIMICO.Text;
          Sql.ParamByName('ESTOQUE').AsFloat := Valor.Value;
          Sql.ExecQuery;
          Sql.Transaction.Commit;