Além do tipo TpcnModeloDF = (moNFe, moNFCe), precisaria mudar também:
function ModeloDFToStr(const t: TpcnModeloDF): String;
function StrToModeloDF(out ok: Boolean; const s: String): TpcnModeloDF;
function ModeloDFToPrefixo(const t: TpcnModeloDF): String;
-------------------------------------------------------------------------
TpcnModeloDF = (moNFe, moNFCe, moMFeSAT);
-------------------------------------------------------------------------
function ModeloDFToStr(const t: TpcnModeloDF): String;
begin
Result := EnumeradoToStr(t, ['55', '65', '59'], [moNFe, moNFCe, mMFeSAT]);
end;
-------------------------------------------------------------------------
function StrToModeloDF(out ok: Boolean; const s: String): TpcnModeloDF;
begin
Result := StrToEnumerado(ok, s, ['55', '65', '59'], [moNFe, moNFCe, moMFeSAT]);
end;
-------------------------------------------------------------------------
function ModeloDFToPrefixo(const t: TpcnModeloDF): String;
begin
Case t of
moNFCe: Result := 'NFCe';
moMFeSAT: Result := 'MFeSat';
else
Result := 'NFe';
end;
end;