Fórum gravar casas decimais #581901

Pessoal tem um combo onde eu digo a quantidade de casa decimais eu vou querer
ele mostra na tela mas qdo gravo ele grava sem as casa decimais e qdo quero gerar um relatório ele não mostra as casas decimais o que devo fazer?

vejam o código da combo

procedure TfrCadCalibracao.cbxCasaExit(Sender: TObject);
begin
inherited;
cdsCalibraItensREFERENCIA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO01.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO02.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO03.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO04.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO05.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensCICLO06.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensMEDIA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensERRO.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensINCERTEZA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensERRO_INCERTEZA.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
cdsCalibraItensERRO_INST.DisplayFormat := ',0.' + StringOfChar('0', cbxCasa.ItemIndex + 1);
end;

por favor alguén me ajude