FReport.OnBeforePrint:=self.OnBeforePrint;
procedure TMyLabelPrint.OnBeforePrint(Sender: TfrxReportComponent);
var
QrCodeMemo:TfrxBarcode2DView;
begin
QrCodeMemo:=TfrxBarcode2DView(FReport.FindObject('QRCODE'));
if QrCodeMemo<>Nil then
begin
QrCodeMemo.Text:=FQRCode;
end;
end;