[Casimiro Noteví]

¿Qué componente estás usando?, un ¿MDOdataSet?, entonces haz un 'cast', algo así como:
(qProducto as TDataSet).Fieldbyname('precio_producto').displayformat := '#0.00';