Formatear columna dbgrid

[cucuy]

Hola Lepe fijate que todo hiba bien osea a mi esa se me hace una solucion muy buena por que puedo manipular por codigo y me quito de andar por todos los componentes configurando bueno el problema es el siguiente puse tu codigo tal y como me lo dijiste pero...............

procedure FormateaCampos(query:TADOQuery);
var I:integer;
begin
for i:= 0 to query.FieldCount -1 do
if Pos(Query.Fields[i].FieldName, MisCamposFormateados) <> 0 then
Query.Fields[i].DisplayFormat := ',#0.00'
end;

lo puse asi i me sale [Error] Unit1.pas(44): Undeclared identifier: 'DisplayFormat'

sigue sin reconocerme el DisplayFormat como la vez

Saludos..... i mil gracias