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

Estou precisando de ajuda, estou tentando importar arquivos xml e armazenar no firebird.
Estou tentando com esse codigo:

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
dbproc.FIELDBYNAME('CODIGO').ASINTEGER := dbproc.FIELDBYNAME('CODIGO').ASINTEGER ;
dbproc.FIELDBYNAME('XNOME').ASSTRING := dbproc.FIELDBYNAME('XNOME').ASSTRING ;
dbproc.FIELDBYNAME('XPAIS').ASSTRING := dbproc.FIELDBYNAME('XPAIS').ASSTRING ;
dbproc.Post;
end;
tcteste.CommitRetaining;
end;
end;