为什么预览时会显示两次？

Question

1、我在FormClassPrint中画出了需要打印内容的格式，在预览事情中写入：
procedure TFormClassPrint.QuickRepMainPreview(Sender: TObject);
begin
  inherited;
  QuickRepMain.Prepare;
  QuickRepMain.PreviewModeless;
  with TFormClassRepPreview.Create(Application) do
  begin
    QRPreviewPreview.QRPrinter := QuickRepMain.QRPrinter;
    Hide;
    ShowModal;
  end;
end;
2、TFormClassRepPreview是我的预览外框
3、运行至Showmodal时除了速度慢以外其余均正常，但是关闭预览页面时程序直接运行with TFormClassRepPreview.Create(Application) do，又将页面重新生成一次。请赐教，谢谢！

Answer 1

procedure TFormClassPrint.QuickRepMainPreview(Sender: TObject);
begin
  inherited;
  QuickRepMain.Prepare;
  QuickRepMain.PreviewModeless;//这里打开一次
  with TFormClassRepPreview.Create(Application) do
  begin
    QRPreviewPreview.QRPrinter := QuickRepMain.QRPrinter;
    Hide;
    ShowModal;//这里打开第二次
  end;
end;

Answer 2

to  SmallHand(火龍)
  工作时间不许上网，你这月的奖金没了

Answer 3

谢谢，但是我去除PreviewModeless后关闭FormClassRepPreview退出时系统报：QRPrint not ready:(