求助，动态创建tcnbitbtn出问题，占资源100%

with TCnBitBtn.Create(Self) do
          begin
            Parent :=form1;
            width := 143;
            Height := 88;
            Margins.Top:=1;
            Margins.Bottom:=1;
            Margins.Left:=1;
            Margins.Right:=1;
            AlignWithMargins:=True;
            Visible := True;
            Caption := FieldByName('name').AsString + ' (' + FieldByName('count').AsString + ')';
            BtnColorStyle := bcsRed;
            Name := 'c_' + trim(FieldByName('sn').AsString);
            OnClick := coursebtnClick;
            if FieldByName('count').AsInteger = 0 then
              Enabled := false;
          end;

delphi 2010下这段代码导致程序始终占资源100%，删除parent:=form1或者BtnColorStyle := bcsRed;
两行之一就正常了。
奇怪！

定位到错误行：cnbuttons.pas
  if FModernBtnStyle = bsModern then // 现代模式直接画，以避免圆角底色问题，但可能闪烁
  begin
          if FRoundCorner then // 圆角时处理透明问题
            RenewBack;

把RenewBack关掉成功运行，缺点是没有圆角了，暂时先这样