Desculpa o erro era meu visto que.
function StrToFormaPagamento(out ok: boolean; const s: string): TpcnFormaPagamento;
begin
result := StrToEnumerado(ok, s, ['01', '02', '03', '04', '05', '10', '11', '12',
'13', '14', '15', '16', '17', '18', '19', '90',
'98', '99'],
[fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito,
fpCreditoLoja, fpValeAlimentacao, fpValeRefeicao,
fpValePresente, fpValeCombustivel, fpDuplicataMercantil,
fpBoletoBancario, fpDepositoBancario,
fpPagamentoInstantaneo, fpTransfBancario,
fpProgramaFidelidade, fpSemPagamento, fpRegimeEspecial,
fpOutro]);
end;