有三个窗体
第一个form1:创建form2
            if not assigned(form1) then
              begin
               form1:=tform1.create(application);
               form1.show;
              end
            else
              form1.show;
第二个form2:用于打印form3中的QuickRep1
第三个form3:QuickRep1;
程序第一次运行时可以打印出结果,但是把form2关掉(释放form2:Action:=cafree;form1:=nil),然后再打开form2(从form1中的按钮),就打印不出任何结果(数据能找到,就是打印不出来),但是把(Action:=cafree;form1:=nil)去掉就可以打印结果