Error Qrdesign ayuda..

[Rofocale]

Código Delphi [-]
procedure TfInformee.facturaDesignAfterReportLoaded(Form: TForm;
  QRD: TComponent);
var
  totalx : Double;
  L: TQRDesignLabel;

begin
totalx := md.tfacturas.FieldByName('Total').AsFloat;
L:=TQRDesignLabel(Form.FindComponent('muestracon'));
L.Caption := FloatToStr(totalx);

end;

Hola a todos tengo un error estoy practicando y quiero mostrar el contenido que tiene el campo total de una tabla en un label de un reporte estoy usando quickreport y qrdesign al usar ese codigo me da error access violation
que estoy haciendo mal ?
espero respuestas

gracias