separadores de mil a una columna del dbgrid

[ingabraham]

tengo un bdgrid/ query y dataset conectado
utilizo delphi 7 y firebird 20

este es el bton que me muestra la consulta

Código Delphi [-]

    with DMDatos.IBMostrarDatos do
     begin
       SQL.Clear;
       SQL.Add(' Select  * From  CONTRATOS  ');
       Open;
     end;

ahora este codigo que me dan , cualquiera de los que me han dado. lo adiciono a continuacion de esto.

Código Delphi [-]
var
  i: Integer;
begin
  for i:= 0 to IBQuery1.FieldCount -1 do
    if IBQuery1.Fields[i].DataType in[ftFloat, ftCurrency, ftBCD] then
      TNumericField(IBQuery1.Fields[i]).DisplayFormat:= '#,###,###,###,##0.00';
end;

me muestra que no reconoce los tipos ftFloat, ftCurrency, ftBCD


falta alguna uses, x que no me reconoce esto.