[oesqueda]

Sin animo a controversia, prefiero el Case, ya que asi acomodas como desees el formato segun el tipo, es mas rapido que un IF y para mi es mas claro en la lectura ademas.

Código Delphi [-]
var
  i: Integer;
begin
  for i:= 0 to IBQuery1.FieldCount -1 do
    Case IBQuery1.Fields[i].DataType of
      ftFloat, ftCurrency, ftBCD: NumericField(IBQuery1.Fields[i]).DisplayFormat :=  '#,###,###,###,##0.00';
      ftInteger: NumericField(IBQuery1.Fields[i]).DisplayFormat :=  '#,###,###,###,##0';
    end; {case}

Claro esta que es ya de cada quien