frastreport打印完成后不能释放内存(50)

frprt1.LoadFromFile('PrintCard2.frf'); frprt1.Title:='健康证明'; frprt1.Dictionary.Variables['Dept'] := '''' + edtDept.Text + ''''; frprt1.Dictionary.Variables['DoctorName'] := '''' + edtDoctorName.Text + ''''; frprt1.PrepareReport; frprt1.PrintPreparedReport('1-',1,true,frall);

加个语句试试frprt1.destory;