安装Developer Express Inc 系列控件组后使用时出现编译错误~！详细如下：

[麦子VISA]

cxScrollBar单元中出现编译错误：
procedure TcxScrollBar.CalcMinThumnailSize;
{$IFDEF VCL}
const
ThumbnailGripKind: array[Boolean] of Integer = (SBP_GRIPPERVERT, SBP_GRIPPERHORZ);
ThumbnailKind: array[Boolean] of Integer = (SBP_THUMBBTNVERT, SBP_THUMBBTNHORZ);
var
ATheme: TTheme;
AThumbSize, AGripSize: TSize;
{$ENDIF}
begin
{$IFDEF VCL}
if Painter = TcxWinXPLookAndFeelPainter then
begin
ATheme := OpenTheme(totScrollBar);
if (ATheme <> 0) and (GetThemePartSize(ATheme, 0, ThumbnailGripKind[FKind = sbVertical],
SCRBS_NORMAL, TS_MIN, AGripSize) = S_OK) then //这里出错...类型不匹配
begin
if (GetThemePartSize(ATheme, 0, ThumbnailGripKind[FKind = sbVertical],
SCRBS_NORMAL, TS_TRUE, AThumbSize) = S_OK) then //这里出错...类型不匹配
begin
if FKind = sbVertical then
FThumbnailSize := MaxInt(AGripSize.cy, AThumbSize.cy + 4)
else
FThumbnailSize := MaxInt(AGripSize.cx, AThumbSize.cx + 4);
end
else
if FKind = sbVertical then
FThumbnailSize := AGripSize.cy
else
FThumbnailSize := AGripSize.cx;
if FThumbnailSize < cxMinStdThumbnailSize then
FThumbnailSize := cxMinStdThumbnailSize
end
else
FThumbnailSize := cxMinStdThumbnailSize;
end
else
{$ENDIF}
FThumbnailSize := cxMinStdThumbnailSize;
end;
---------------------------------------------------
错误信息：
incompatible types:'integer' and 'PRect'
incompatible types:'integer' and 'tagSIZE'
-------------------------------------------------------
function GetThemePartSize(hTheme: HTHEME; DC: HDC; iPartId, iStateId: Integer;
{$IFNDEF CLR}prc: PRect{$ELSE}const prc: TRect{$ENDIF}; eSize: THEMESIZE;
{$IFNDEF CLR}psz: PSize{$ELSE}out psz: TSize{$ENDIF}): HRESULT;
begin
{$IFNDEF CLR}
Result := FThemeLibraryMethodPointersKeeper.FGetThemePartSize(hTheme, DC, iPartId,
iStateId, prc, eSize, psz);
{$ELSE}
Result := _GetThemePartSize(hTheme, DC, iPartId,
iStateId, prc, eSize, psz);
{$ENDIF}
end;
---------------------------------
函数原型
---------------------------------
安装参照：http://fredblog.yculblog.com/post-219578.html（一套完整的Developer Express Inc 系列控件组 for delphi7 的安装过程
）
--------------------------------------
问题：问题出在哪里，该如何解决？
--------------------------------------
最后：10分感谢