[wilcg]

Después de tanto intentar encontré la solución, he usado una parte del código de ecfisa y cambiado el campo de mi tabla a Integer y ya queda tal como en la imagen. Gracias ecfisa por tu ayuda.

Código Delphi [-]
currFld := Column.Field.AsString;
   if Column.Field.DataType in [ftFloat, ftCurrency, ftBCD] then
     currFld:= FormatFloat('###,##0.00', Column.Field.Value);

   if Column.Field.DataType in [ftInteger] then
     currFld:= FormatFloat('###,##0.0000', Column.Field.Value);

   DrawText(Canvas.Handle, PChar(currFld), -1, R, uFormat);