[oesqueda]

Imagino que usas DBExpress o usas IBX?

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

Ya tu haces los cambios y lo adaptas a lo que necesitas, puedes agregar mas tipos de campos, etc.