Baixa em estoque

:D Ola Galera.
Estou precisando de um código fonte que me mostre como dar baixa em estoque.
Tenho uma tabela de Produtos e uma de Vendas.
Tenho o seguinte código.

procedure TFrm_Vendas.BitBtn1Click(Sender: TObject);
begin
DM_Geral.QR_DetVendas.First;
While not DM_Geral.QR_DetVendas.Eof do
begin
Dm_Geral.QR_BaixaEstoque.Close;
Dm_Geral.QR_BaixaEstoque.ParamByName(´ID´).Value:=DM_Geral.QR_DetVendasID_Produto.Value;
Dm_Geral.QR_BaixaEstoque.Open;
Dm_Geral.QR_BaixaEstoque.Edit;
Dm_Geral.QR_BaixaEstoqueQuantidade.Value:=Dm_Geral.QR_BaixaEstoqueQuantidade.Value+Dm_Geral.QR_DetVendasQuantidade.Value;
DM_Geral.QR_BaixaEstoque.Post;
DM_Geral.QR_DetVendas.Next;

end;
end;

Só que não esta dando baixa no estoque.
Se alguem puder me ajudar ficarei grato.

Jackell