Win7 64位下Delphi7 TPageControl没法自绘，求解决

Win7 64位下Delphi7 TPageControl无法自绘，求解决
如果把一个PageControl的OwnerDraw属性置为True，style置为fsFlatButtons，并给他的OnDrawTab写下一段代码：

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;

  TabIndex: Integer; const Rect: TRect; Active: Boolean);

begin

    TPageControl(Control).Canvas.Brush.Color := clLime;

    If Active Then TPageControl(Control).Canvas.Brush.Color := $00CCFFCC Else TPageControl(Control).Canvas.Brush.Color := $00EADBCB;// G_PageTabBgColor[Random(G_PageColorMaxNum)];//$00CCFFCC;//$00CEE8CA;//cllime;

    TPageControl(Control).Canvas.FillRect(Rect);


    //---------写字

    Control.Canvas.TextRect(Rect,Rect.Left + 20, Rect.Top + 4, 'AText');


end;

编译出来的程序在32位XP，32位Win7下都可以实现改变PageControl顶部按钮的背景颜色；但是64位 Win7里面运行，就相当于OwnerDraw为False，但是没有字的情况。不知是啥问题。
------解决方案--------------------
需要打个补丁文件，或者修改paint过程
------解决方案--------------------
goole搜下，前段时间搜到过
------解决方案--------------------
试过了，WIN7 32位完好 ，64位有问题，未画字符和颜色。