Estou tentando atualizar a quantidade do estoque_real de um produto da tabela de produtos alguem ajuda.

procedure TF_Entrada.AtualizaEstoque;
begin
//Atualizando o Estoque Real
if _qtdReal <> '''' then
with dm.cdsProduto do
begin
dm.Conexao.Close;
dm.cdsProduto.close;
CommandText := ''update produto set estoque_real = estoque_real ''+'' '' + QuotedStr(qtde_entrada.Text) +
'' where id_produto = ''+QuotedStr(db_codigo.Text);
dm.cdsProduto.Open;
dm.Conexao.Open;
end;
end;