[AGAG4]

En el DisplayFormat tienes que agregar ###,##0.00
Te paso una función para que no tengas problemas de que se te olvide de poner el formato en el DisplayFormat:

Código Delphi [-]
procedure FormatCampos(Dataset:TClientDataset);
var
  x:Integer;
begin
  for x:=0 to Dataset.FieldCount-1 do
    if (Dataset.Fields.Fields[x].DataType = ftBCD) or (Dataset.Fields.Fields[x].DataType = ftFloat) then
      TFloatField(Dataset.Fields.Fields[x]).DisplayFormat := '###,###,##0.00';
end;

Saludos....