Fórum Importação de Xml com Firebird #528201

Preciso de ajuda para importar xml e salvar no banco firebird só que quando abro um arquivo sempre salva o mesmo.
Estou tentando com esse código.


var
n:integer;

NFeRTXT: TNFeRTXT;
begin
OpenDialog1.FileName := '';
OpenDialog1.Title := 'Selecione a NFe';
OpenDialog1.DefaultExt := '*-nfe.XML';
OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Arquivos TXT (*.TXT)|*.TXT|Todos os Arquivos (*.*)|*.*';
OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
if OpenDialog1.Execute then
begin
ACBrNFe1.NotasFiscais.Clear;
//tenta TXT
ACBrNFe1.NotasFiscais.Add;
NFeRTXT := TNFeRTXT.Create(ACBrNFe1.NotasFiscais.Items[0].NFe);
NFeRTXT.CarregarArquivo(OpenDialog1.FileName);
if NFeRTXT.LerTxt then
NFeRTXT.Free
else
begin
NFeRTXT.Free;
//tenta XML
ACBrNFe1.NotasFiscais.Clear;
try
ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
except
ShowMessage('Arquivo NFe Inválido');
exit;
end;
end;
dbproc.Close;
dbproc.Open;

begin
dbproc.Insert;
for n:=0 to ACBrNFe1.NotasFiscais.Count-1 do
begin
with ACBrNFe1.NotasFiscais.Items[n].NFe do
begin

dbproc.FIELDBYNAME('XNOME').ASSTRING := Emit.xnome;
dbproc.FIELDBYNAME('CPFCNPJ').ASSTRING := Emit.CNPJCPF;
dbproc.FIELDBYNAME('XPAIS').ASSTRING := Emit.EnderEmit.xpais;
dbproc.FIELDBYNAME('FONE').ASSTRING := Emit.EnderEmit.fone;
dbproc.FIELDBYNAME('XENDERECO').ASSTRING := Emit.EnderEmit.xlgr;
dbproc.Post;
end;
end;
tcteste.CommitRetaining;
end;
end;