自定义的过程无法编译？ ( 积分: 50 )

我采用ACCESS数据库，窗体放了一个ADOQuery组件，名字是CountQuery。并自定义了一个过程，代码如下：
procedure CountRecord;
var
v_RecordCount:word;
begin
with CountQuery do
begin
close;
SQL.clear;
SQL.add('select count(*) as lscount from main');
open;
v_RecordCount:=CountQuery.fieldbyname('lscount').asinteger;
close;
end;
end;
并在type部分定义了procedure CountRecord;，type部分也定义了CountQuery:TADOQuery;
执行的时候提示CountQuery未定义，无法编译。

但是如果把代码部分直接加入Form.OnCreate过程中，就没有任何问题。
各位高手帮忙看看哪里有问题了？谢谢！

来混分
with CountQuery do -> with form1.CountQuery do
或procedure CountRecord;-> procedure tform1.CountRecord;

type部分也定义了CountQuery:TADOQuery; ?????

因该在var部分定义
var
CountQuery: TADOQuery;

如果在类里面定义的CountQuery: TADOQuery;就俺楼上说的。

搞定了，在过程定义部分加上Tform1.就好了。谢谢大家！

To:京酱肉丝，我可能表达不清楚。确实是在类里面声明的。谢谢！

多人接受答案了。