用reportbuilder连续打印，一直不释放cpu，知道的兄弟帮帮忙，急用！！！！！ ( 积分: 100 )

我用reportbuilder做了个批量打印，当打时cpu一直为100%(一个系统进程system占了95-98%)，打印十来张后就只打半张了，现在改为动态创建，但为何不能给lxm.Caption 、 lzyh.Caption 、 ljybb.Caption 、 lkb.Caption 赋值
procedure Tfrm_pldysxd.dy;
var report :TppReport;
begin
sp_se_pldyfxj.Close;
/////打印非血浆
sp_se_pldyfxj.Parameters.ParamByName('@czydm').Value := pub_czydm;
sp_se_pldyfxj.Parameters.ParamByName('@pxbh').Value := pxbh;
sp_se_pldyfxj.open;
if sp_se_pldyfxj.Parameters.ParamByName('@bz').Value = 1 then
begin
if dybz = 1 then
//打印
begin
frm_dm.TryAddForm('sxbg');
///创建纸张大小
report := TppReport.Create(self);
report.DeviceType:='Printer';
TppReport(report).Template.FileName:='d:/dy/pldyfxj.rtm';
report.DeviceType:='Printer';
report.Template.LoadFromFile;
report.DeviceType:='Printer';
report.ShowCancelDialog:=false;
report.ShowPrintDialog:=false;
ppLabel32.Caption := pub_yymc+'输血报告单';
/////打印血浆
lxm.Caption := sp_se_brpldy.FieldByName('brxm').AsString;
lzyh.Caption := sp_se_brpldy.FieldByName('brxx_tmh').AsString;
ljybb.Caption := '血';
lkb.Caption := sp_se_brpldy.FieldByName('ksmc').AsString;
lbbh.Caption := '0';
report.PreviewFormSettings.WindowState := wsMaximized;
report.PreviewFormSettings.ZoomPercentage := 100;
report.DataPipeline := ppDBPipeline1;
report.Print;
report.Free;
end;

哪位兄弟知道帮帮忙吧,急用

看来大富翁上的人是越来越少了