[dec]

Hola,

Igual tienes que hacer algo parecido a:

Código Delphi [-]
if DM.PPPrecios.IndexFields[i].Tag = 1 then TClientDataSet(DM.PPPrecios.IndexFields[i]).DisplayFormat := MaskMon;