改控件源码中的AdvOfficePager.pas 的下面的方法；

function DrawVistaText(Canvas: TCanvas Alignment: TAlignment r: TRect FCaption:string AFont: TFont Enabled: Boolean RealDraw: Boolean AntiAlias: TAntiAlias Direction: TTabPosition Ellipsis: Boolean): TRect

将Caption:String改为FCaption:String，然后在函数体中新建一个局部变量“Caption:WideString”，

最后在代码段的第一行加入：Caption:=FCaption；即可。

修正代码完全保证了源代码的兼容性，仅仅是在开始改变了Caption的类型-Change control source AdvOfficePager.pas the following methods　function DrawVistaText (Canvas: TCanvas　Alignment: TAlignment　r: TRect　FCaption: string　AFont: TFont　Enabled: Boolean　RealDraw: Boolean　AntiAlias: TAntiAlias　Direction: the TTabPosition　Ellipsis: Boolean): TRect　will Caption: String instead FCaption: String, and then in the body of the function, a new local variable " Caption: WideString finally added to the first line of the code segment: Caption: = FCaption　can. The correction code fully guaranteed source code compatibility, only began to change in the type of Caption