Problemas con el Medoto DrawColumnCell
 

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

No sé a qué se deba pero si sólo deseas cambiar el color no necesitas dibujar tú mismo el texto con TextOut sino que puedes dejar que lo haga el mismo control usando el método DefaultDrawColumnCell después del cambio de color.

// Saludos