FastReport的问题 在先等待

我用frxReport+frxPreview来显示报表    
  代码如下  
      Screen.Cursor   :=   crHourGlass;  
   
      try  
          cdsP.Close;  
          cdsP.CommandText   :=   'Select   *   from   sjb   ';  
          cdsP.Open;  
   
          if   cdsP.IsEmpty   then  
          begin  
              application.messagebox('没有数据可以显示','提示信息',MB_OK);  
              Exit;  
          end;  
          frxReport1.LoadFromFile(AppPath   +   '\report\YJStat2.fr3');  
          frxReport1.PrepareReport;  
          frxReport1.ShowReport();  
      finally  
          Screen.Cursor   :=   crDefault;  
          frxPreview1.Cancel;  
      end;  
  现在问题出现在两个方面。  
  1。当在统计过程中（也就是说有100页，现在到50页的时候）重新点击统计按钮，这个时候程序报错。   这种情况怎么控制。  
  2。当在统计过程中（也就是说有100页，现在到50页的时候）关闭了该窗体。程序自动关闭。这种情况怎么控制。  
 

程序报错的提示是什么？

我捕获的错误    
  Access   violation   at   address   00000001.   Read   of   address   00000001

设置frReport的ShowProgress=True，这样在统计的过程中会出现进度条，其他操作不能进行。

[新闻]Google iPhone语音识别程序已经上线
博客园首页 社区 新闻频道 小组 博问 网摘 闪存