Delphi com Oracle - BCD

Para passar os parametros estes tem que ser do tipo AsBcd .....

// Refugo de Materiais
if (dm.sProcRefugo.Active) then
dm.sProcRefugo.Close;
dm.sProcRefugo.ParamByName('COFDET').AsBCD := StrToInt(RefOf); <--
dm.sProcRefugo.ParamByName('CODPRO').AsString := RefProd;
dm.sProcRefugo.ParamByName('QTDREF').AsBCD := StrToFloat(refQtde); <----
dm.sProcRefugo.ParamByName('MOTREF').AsBcd := StrToInt(RefMotivo); <-----
dm.sProcRefugo.ParamByName('USUARIO').AsString := RefUser;
dm.sProcRefugo.ParamByName('CODSEQ').AsString := refSeq;
dm.sProcRefugo.ParamByName('COLETOR').AsString := refColetor;