dll中adoquery.Parameters.AddParameter 提示异常

dll中adoquery.Parameters.AddParameter 提示错误，
环境:   xp+d7+sql2k
代码在原程序中执行正确，抽取到dll中后执行错误，提示：invalid   class   typecast错误

经查看估计是adodb中下面这里转换错误，为什么呢
function   TParameters.AddParameter:   TParameter;
begin
    Result   :=   Add   as   TParameter;
end;

附加部分代码；
function   dotest(var   adoTemp   :   TAdoQuery):ShortString;stdcall;export;
var
    par   :   TParameter;
begin
    adotemp.close;
    adotemp.sql.text   :=   'select   aa   from   tbtest ';
    adotemp.open;
    par   :=   adoTemp.Parameters.AddParameter;   //这里提示错误
    ....
end;

窗体中调用
    dotest(adoquery1);

[解决办法]
应该是你还有其他的UNIT里也定义了一个CLASS 叫TParameter. 你可以在你的代码中把ADODB单元有用放到最前面