Ola Juliomar, obrigado pelo retorno, abaixo eu mostro como estou gerando:
with RegistroP100New do
begin
DT_INI := edDati.date;
DT_FIN := edDatf.date;
VL_REC_TOT_EST := ValorCte + ValorSer;
COD_ATIV_ECON := sqlFili.fieldbyname('empr_cnae').asstring;
VL_REC_ATIV_ESTAB := ValorCte + ValorSer;
VL_EXC := 0;
VL_BC_CONT := ValorCte + ValorSer;
ALIQ_CONT := 1;
VL_CONT_APU := mRound((valorCte + ValorSer) * 1 / 100,2);
end;
Tudo vai certinho para o registro, menos a data final DT_FIN que sempre vai com uma data 30/12/1899, já verifiquei pelo Debug que a variável edDatf.date está carregada com: 31/07/2014.