Active control 向导生成的StringGrid Control出错

[findingit]

使用ActiveX Control Wizard向导,在VCL Class Name:选择了TSTringGrid[Grids]
然后点击OK生成的工程居然编译不能通过
编译时出现如下错误：
[C++ Error] StringGridImpl1.cpp(1107): E2034 Cannot convert 'TOLEBOOL *' to 'short *'
[C++ Error] StringGridImpl1.cpp(1107): E2342 Type mismatch in parameter 'CanSelect' (wanted 'short *', got 'TOLEBOOL *')

出错的地方是StringGridImpl1.cpp,代码如下（都是向导自动生成）：

void __fastcall TStringGridXImpl::SelectCellEvent(TObject *Sender,
int ACol, int ARow, bool &CanSelect)
{
TOLEBOOL TempCanSelect;
TempCanSelect = (TOLEBOOL)CanSelect;
Fire_OnSelectCell((long)ACol, (long)ARow, &TempCanSelect);
CanSelect = (TOLEBOOL)TempCanSelect;
}

大家可以自己试一试，有没有什么好的解决办法呢？
我试过了改为
void __fastcall TStringGridXImpl::SelectCellEvent(TObject *Sender,
int ACol, int ARow, bool &CanSelect)
{
short TempCanSelect;
TempCanSelect = (short)CanSelect;
Fire_OnSelectCell((long)ACol, (long)ARow, &TempCanSelect);
CanSelect = (TOLEBOOL)TempCanSelect;
}
编译通过可是在使用的时候就有问题了，
当options 设置为goEditing后就有问题了说明上面的修改还是不行
导致内存出错。

[findingit]

大家看看有没有好的解决办法啊