[adfa]

No se si te sirva, yo hago algo parecido pero lo hago con este código:

Código Delphi [-]
var
   nume,larpie, lefi, indice: integer;
   mascara, pie: string;
begin
// otro  trozo de código que no viene al caso

/// aca creo el TQRExpr
   with TQRExpr((frmreporte.FindComponent('Pie'+pie) as TQRBand).AddPrintable(TQRExpr)) do
   begin
      name            := 'Total'+pie+listotal.Items[indice];
//aca las posiciones delos totales
      AutoSize        := false;
      left            := lefi;
      width           := larpie;
      mask            := mascara;
      Alignment       := taRightJustify;
      frame.DrawTop := true;
      expression      := 'SUM(dbreport.'+listotal.Items[indice]+')';
      resetafterprint := true;
   end;

Saludos