ValidaCFD

Buen Día tengo el siguiente problema, la verdad soy nuevo en delphi y quiero hacer un validador, encontre un codigo fuente donde ya se hace le hice algunas correciones y funciona pero solo funciona para las versiones 2.0 y 3.0 para las nuevas no lo mas raro es que ni siquiera me lee el documento pero si le cambio en el xml este dato por un 2.0 o por un 3.0 funciona, primero pense que eran las variables que no estaban bien definidas pero ya no se que sea , no se si me puedan ayudar pongo el codigo para que lo vean en la ultima linea es donde se queda

XMLDocCopy.XML := XMLDoc.XML;
XMLDocCopy.Active := true;
if CFDVer = 2.0 then CFDCopy := GetComprobante(XMLDocCopy);
if CFDVer = 2.2 then CFDCopy := GetComprobante(XMLDocCopy);
if CFDVer = 3.0 then CFDCopy := GetComprobante_V3(XMLDocCopy);
if CFDVer = 3.2 then CFDCopy := GetComprobante_V3(XMLDocCopy);

with CFDCopy do
begin
AgregaDato(Version);

y SOLUCIONE ESE PROBLEMA AHORA ESTOY BATALLANDO PARA LEER EL REGIMEN FISCAL ME MANDA ERROR COMO SI FUERA DE UNA LISTA, ESPERO ME PUEDAN APOYAR, GRACIAS