Muchas Gracias MarcosZorrilla, eso es lo que andaba buscando, quedo así:
Código Delphi
[-]
for x:=0 to tConsultas.FieldCount-1 do
if tConsultas.Fields.Fields[x].DataType=ftFloat then
TFloatField(tConsultas.Fields.Fields[x]).DisplayFormat := '###,##0.00';
Que tenga buen día.