Fórum Duvida ao debugar no Delphi XE8 #559407

procedure TFormValidadorNfe.btnArquivoClick(Sender: TObject);
var
 vCaminhoXml : String;
begin

 OpenDialog.Title := 'Selecionar XML\';
 OpenDialog.InitialDir := 'C:\\';
 if OpenDialog.Execute then
 Begin
   vCaminhoXml :=  OpenDialog.FileName;

   Memo1.Clear;
   Memo1.Lines.LoadFromFile(vCaminhoXML);
   ACBrNFe1.NotasFiscais.LoadFromFile(vCaminhoXML,true);
   try
    ACBrNFe1.SSL.NumeroSerie:= edtTipoCertificado.Text;

    if ACBrNFe1.SSL.CertificadoLido = False then
     ACBrNFe1.SSL.CarregarCertificado;

    ACBrNFe1.SSL.SelecionarCertificado;
    ACBrNFe1.NotasFiscais.Validar;
    if ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then
      MemoDados.Lines.Add('Alertas: '+ACBrNFe1.NotasFiscais.Items[0].Alertas);
      ShowMessage('Nota Fiscal Eletrônica Valida');
   except
    on E: Exception do
    begin
          MemoDados.Lines.Add('Exception: '+E.Message);
          MemoDados.Lines.Add('Erro: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacao);
          MemoDados.Lines.Add('Erro Completo: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacaoCompleto);
     end;
   end;

   //ACBrNFe1.NotasFiscais.GerarNFe;
   //ACBrNFe1.NotasFiscais.Assinar;
 end;
end;