Rafael Monteiro

Obrigado a todos pela ajuda, eu copiei os arquivos "elginsat.cat", "elginsat.sys", "elginsat_x64.sys", "SATElgin.inf" e "zlib.dll" para a pasta do .exe e resolveu!

Bom, não sei se fiz da melhor forma possível, mais resolvi usado assim:
 
 
if AcbrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.procEvento.tpEvento = teCancelamento then
begin
    cJustificativa := AcbrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.procEvento.detEvento.xJust;
    cDataCanc      := FormatDateTime( 'DD/MM/YYYY hh:mm:ss', AcbrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.procEvento.dhEvento);
    nProtocolo     := AcbrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.procEvento.Id;
    sChave           := AcbrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.procEvento.chDFe;
end;
antes para o caso da CTe eu tentei da forma como usava na NFe:
AcbrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.procEvento.RetinfEvento.tpEvento = teCancelamento