这个窗体的步骤只允许被class or constructor 调用

这个窗体的方法只允许被class or constructor 调用
我在学习delphi操作mysql的时候

我打算把查询数据内容是否为空的代码写进一个过程，如下代码

我定义了一个函数导入参数 如果查询内容为空 就代表新添加的数据在数据库中不存在 反之就存在

但是编译的时候出现了这个错误，我定义查询过程的时候 没有返回是否为空的都可以正常
但是这个不行 求解答 应该怎样才能改正错误

[dcc32 Error] main.pas(83): E2076 This form of method call only allowed for class methods or constructor

function   TDataModule1.cxdbbool(biaom,zhim,cxnr:string):boolean;

    ////查询数据内容 是否存在 返回布尔量

begin

with DataModule1.ADOQuery1 do

begin

Close;

SQL.Clear;//这是添加查询的SQL语句  'select * from xdf_list where name= nianshao' 

SQL.Add('select * from '+biaom+' where '+zhim+'='+cxnr);

Open;

if IsEmpty =true then  Result:=true else

Result:=false ;

end;

end;

------解决方案--------------------
你一定是调用了类方法。。在哪行出错？