你肯定是在程序中重复创建了QRStandPreview。把你的代码:
QRStandPreview := TQRStandPreview.Create(AOwner)改为:
if Not Assigned(QRStandPreview) then 
  QRStandPreview := TQRStandPreview.Create(AOwner)