Error Qrdesign ayuda..

[Rofocale]

Hola disculpa el programa compila todo bien pero no muestra el resultado dentro del label osea no aparece nada solo dice reportlabel

Código Delphi [-]
procedure TfInformee.facturaDesignBandBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);

var
  vComponente : TComponent;
  totalx : Double;

begin
  if UpperCase(sender.Name) = 'PIE' then
  begin

     vComponente := fInformee.facturadesign.ReportForm.FindComponent('muestracon');
     if (vComponente as TQRLabel) <> Nil then
     begin
       totalx := md.tfacturas.FieldByName('Total').AsFloat;

       (vComponente as TQRLabel).Caption := FloatToStr(totalx);
       (vComponente as TQRLabel).Enabled := True;
     end;

  end;
end;