Essa tah cruel p/ mim. Formatar um Field em tempo d Execucao

Bom dia !
Pessoal quero formatar um Campo em tempo de execuçao eu Uso D6 e IB7, O campo é do tipo Numeric porem estou criando ele no componente em tempo de execucao veja o codigo completo abaixo:

with DMRelatorio.sds_relatorio do // <==componente SimpleDataSet
begin
if Active then Active:=false;
DataSet.CommandText:=(
´SELECT DISTINCT CA.NOME_AGENCIA, SUM(FAT.TOT_RS) AS TOTAL, CA.COD_AGENCIA ´+
´FROM CAD_AGENCIA CA ´+
´INNER JOIN CAD_OS CO ON (CA.COD_AGENCIA = CO.COD_AGENCIA)´+
´INNER JOIN FATURA FAT ON (CO.NUM_OS = FAT.NUM_OS)´+
´WHERE´+
´(FAT.EMISSAO BETWEEN :DATA_INI AND :DATA_FIM)´+
´GROUP BY CA.NOME_AGENCIA, CA.COD_AGENCIA ´+
´ORDER BY CA.COD_AGENCIA´);
DataSet.Params[0].AsDate:=StrToDate(MSK_INI.Text);
DataSet.Params[1].AsDate:=StrTodate(MSK_FIM.Text);
Active:=true;

TNumericField(DataSet.FieldByName(´TOTAL´)).DisplayFormat:=(´0.00´); <<==campo que quero formatar

FrmQRFaturamento.QuickRep1.Preview;
end;
:?: