Pegar protocolo dos eventos da NFe

[carlos_tedex]

Boa noite,

Não estou conseguindo localizar a propriedade no código abaixo para pegar o Protocolo e o cStat dos eventos da NF-e.

  ACBrNFe1.WebServices.Consulta.NFeChave := sChave;
  ACBrNFe1.WebServices.Consulta.Executar;

  For i := 0 to ACBrNFe1.WebServices.Consulta.procEventoNFe.Count-1 do begin
    sMSG :=
      'E V E N T O S' + sLineBreak +
      'Protocolo: ?????' + sLineBreak +
      'cStat: ?????' + sLineBreak +
      'Chave: ' + ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.chNFe + sLineBreak +
      'SeqEvento: ' + IntToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento) + sLineBreak +
      'CNPJ: ' +  ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.CNPJ + sLineBreak +
      'Dt Evento: ' + DateTimeToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.dhEvento) + sLineBreak +
      'Tp Evento: ' + TpEventoToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.tpEvento) + sLineBreak +
      'DescEvento: ' + ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.DescEvento + sLineBreak +
      'Tp Amb: ' + TpAmbToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.tpAmb);
    ShowMessage(sMSG);
  end;

[magisystem]

ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[i].RetInfEvento.nProt