Bom dia Diógenes,
O código acima é para adicionar as chaves dos CT-e (transportadora), para uma empresa que vende o produto e realiza o transporte da própria mercadoria devemos adicionar as chaves das NF-e.
Neste caso em vez de infCTe devemos trocar por infNFe e em vez de chCTe devemos trocar por chNFe.
Não devemos esquecer de informar corretamente o valor de tpEmit, pois é ele que define se o emitente do MDF-e é uma transportadora ou não.
No código abaixo esta definindo que o emitente é uma transportadora.
// TMDFeTpEmitente = ( teTransportadora, teTranspCargaPropria );
Ide.tpEmit := teTransportadora;