高分求教！！！一个奇怪的问题.

[xiaoxixing]

BCB5环境下这段代码是能够运行的
TDataSet * CurrentDataSet;
TDBGrid * CurrentGrid;
CurrentGrid=DBGrid4;
CurrentDataSet=CurrentGrid->DataSource->DataSet;
可是移植到BCB6下，编译通过，
运行到CurrentDataSet=CurrentGrid->DataSource->DataSet;时总是报错“地址访问入侵”