[tocomi]

Esto es lo mas cercano que pude encontrar, pero la parte que no logro desifrar es como se le indica al programa en que componente (si tengo 10 componentes Text en el reporte) deberia dejar el dato

 
DataModule.CXNBalanceSheetGetRow(Connection: TRPCustomConnection)
begin
With Connection do
   begin
   DoGetRow;
   If (Dataset.FieldByName('NetIncome').AsFloat < 0) then
      WriteFloatData('', Format('%s%s', [ToRedItalics, FormatFloat '$#,##0.00', Dataset.FieldByName('NetIncome').AsFloat)))
   else
      WriteFloatData('', FormatFloat('$#,##0.00', DataSet.FieldByName 'NetIncome').AsFloat)))
end;
end;