Duplicação de Dados na inserção

Tenho um DbGrid ligado ao TADOQuery, para que este faça a seleção dos registros na tabela filha
pertencentes que tenham ligação com a tabela mestre. Portanto eu insiro os dados direto no DBGrid.
No botão que grava o item na tabela filha tenho:


procedure TFrmEntradasProdutos.BtnGravaItemClick(Sender: TObject);
begin
QtdeProd:= GrdProdutos.Fields[4].AsInteger;
CodMov:= FldCodMovimento.Text;

Modulo.TbEntradas.Open;
Modulo.TbEntradas.Insert;
Modulo.TbEntradasCodMov.AsString:= CodMov;
Modulo.TbEntradasCodProduto.AsString:= QryItensNFCodProduto.AsString;
Modulo.TbEntradasQtde.AsString:= QryItensNFQtde.AsString;
Modulo.TbEntradas.Post;
Modulo.TbEntradas.Refresh;
Modulo.TbEntradas.Close;
Modulo.TbProdutos.Open;
Modulo.TbProdutos.Edit;
Modulo.TbProdutosQtdeAtual.AsInteger:= Modulo.TbProdutosQtdeAtual.AsInteger + QtdeProd;
Modulo.TbProdutos.Post;
Modulo.TbProdutos.Refresh;
QryItensNF.Refresh;
Soma;
end;

Ou seja, a tabela de Entradas de Produtos recebe em seu campo CodProduto o valor atual do QryItensNF
em seu Campo CodProduto. O mesmo esquema serve para a quantidade. O que ocorre é que sempre ele duplica os registros
a partir do 2º inserido através do ADOQuery. porque ocorre isso???


Valeu!!!