自定义预览窗口时出现的问题。(54分)

我想不用QReport的Preview功能来调用其自代预览窗口，而用TQRpreview组件来做，但实现
时出现下面的问题，请高手们赐教！
procedure TForm1.BtPreviewClick(Sender: TObject);
begin

rpt.Preview;
showmessage('After Preview!');
//这句好象执行不到，为什么？
end;


procedure TForm1.rptPreview(Sender: TObject);
begin

prv.QRPrinter:=TQRPrinter(Sender);

end;

加一段控制:

procedure TtestForm.Button5Click(Sender: TObject);
begin

prv.QRPrinter:= nil;
end;

接受答案了.