[JoAnCa]

Muchas gracias, tendre en cuenta tu sugerencia, aunque resolvi con este codigo q me ayudo Egostar

Código Delphi [-]
procedure TModuloReport.frIndicadoresBeforePrint(Sender: TfrxReportComponent);
var
  Plan, Real  :TfrxMemoView;
  Fila        :Integer;
 
begin
  Fila := frdsIndicadores.DataSet.FieldByName('Fila').AsInteger;
  Plan := frIndicadores.FindObject('frdsCertificoPlan') as TfrxMemoView;
  Real := frIndicadores.FindObject('frdsCertificoReal') as TfrxMemoView;
  if Fila = 10 then
    begin
      Plan.DisplayFormat.FormatStr:='0.0000';
      Real.DisplayFormat.FormatStr:='0.0000';
    end
  else
    begin
      Plan.DisplayFormat.FormatStr:='#,##0.00';
      Real.DisplayFormat.FormatStr:='#,##0.00';
    end;
end;