为什么预览时会显示两次？(100分)

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
，又将页面重新生成一次。
请赐教，谢谢！
[]

去掉
QuickRepMain.PreviewModeless;

谢谢，现在的确是显示一次。
但是在关闭外框退出时报“QRPrint not Ready”是什么原因？

接受答案了.