Problemas con el Medoto DrawColumnCell

[fmonte]

Tengo este codigo en en el metodo:
Producto es un Dbgrid, que es muestra una consulta de Adoquery

Producto.Canvas.Font.Color := clred; //Pinto la letra de Rojo
producto.Canvas.TextOut(rect.Left+2, Rect.Top+2, producto.DataSource.DataSet.Fields[DataCol].AsString);

Con esto pinto de rojo las letras
Mi problema, es que tengo una columna que son de tipo Moneda en Access, o sea un Currensy, y si yo tengo en la base un valor como puede ser, 5,32 anda bien, me lo pinto bien de rojo, pero si yo tengo 5,30, me pinta hasta el 5,3 , el cero no me lo pinto, alguien me puede decir porque y como se solucionaria.
Desde ya muchas Gracias.
Pancho