[oesqueda]

Ampliemos el codigo:

Código Delphi [-]
var
  i:integer;
begin
for i := 0 to pred(dataset.fieldcount) do
  Case dataset.fields.fields[i].FieldType of
    ftInteger: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0';
    ftFloat, ftCurrency: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0.00';
  end; {case}
end;

Entero sin decimales, claro esta que faltan mas tipos de campos, pero ahi te dejo la idea para que lo completes.