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);