[__cadetill]

también puedes hacer esto después de abrir la Query

Código Delphi [-]
var
  i: integer;
begin
.....
  Query.Open;

  for i := 0 to Query1.Fields.Count - 1 do
    if Query1.Fields[i].DataType in [ftInteger, ftWord] then
      TIntegerField(Query1.Fields[i]).DisplayFormat := '#,##0'
    else
      if Query1.Fields[i].DataType in [ftFloat] then
        TFloatField(Query1.Fields[i]).DisplayFormat := '#,##0.00';
....
end;

Y así controlar y poner la máscara que quieras a los tipos que quieras

Espero que te sirva