为什么我每次打印预览时都会递增显示上次预览的内容，老是重复显示。何故？！

Question

数据集里的记录我查看了没有递增的情况，定义的打印变量TfrReport也是局部的变量，可是为什么每回预览打印内容就会递增显示前一次的内容，不知道是哪个环节没有清楚掉以前的信息。请大家帮个忙
var
 Report:TfrReport;  Report:=ReportTemplet;
  Report.LoadFromFile(ExtractFilePath(Paramstr(0))+'printTemplet2.frf');
  Report.OnObjectClick := nil;
  Report.OnMouseOverObject := nil;
  Report.Pages[0].ChangePaper(256,2100,numEdit.IntValue*10,-1,poPortrait);
  if Report.PrepareReport then
  begin
    Report.ShowPreparedReport;
    Report.Clear;
  end;

Answer 1

var
 Report:TfrReport;  Report:=ReportTemplet;
  Report.LoadFromFile(ExtractFilePath(Paramstr(0))+'printTemplet2.frf');
  Report.OnObjectClick := nil;
  Report.OnMouseOverObject := nil;
  Report.Pages[0].ChangePaper(256,2100,numEdit.IntValue*10,-1,poPortrait);
  if Report.PrepareReport then
     Report.ShowPreparedReport;
 Report.Clear;
report.destory

Answer 2

此语句report.destory好像比较狠了一点，这样的话我就什么也不能干了，只能进行一次打印的操作了，还有没有其他更好的办法吗？