动态创建QuickRep1，为什么不可以看见？(30分)

动态创建QuickRep1，为什么不可以看见？
procedure TForm2.FormShow(Sender: TObject);
var
QuickRep1: TQuickRep;
begin

QuickRep1:=TQuickRep.Create(self);
QuickRep1.Visible:=True;

with QuickRep1do
begin
Left:= 8 ;
Top:= 0 ;
Width := 794;
Height:= 1123 ;
Frame.Color:= clBlack ;
Frame.DrawTop := False;
Frame.DrawBottom:= False;
Frame.DrawLeft := False;
Frame.DrawRight := False ;
Font.Charset := DEFAULT_CHARSET;
Font.Color:= clWindowText;
Font.Height := -13 ;
Font.Name:= 'Arial' ;
Font.Style:= [] ;
Options := [FirstPageHeader, LastPageFooter] ;
Page.Columns:= 1 ;
PrinterSettings.Copies:= 1 ;
PrinterSettings.Duplex := False ;
PrinterSettings.FirstPage := 0 ;
PrinterSettings.LastPage := 0 ;
PrintIfEmpty:= True ;
SnapToGrid:= True ;
Units :=MM ;
Zoom:= 100 ;
end;

end;