急 编译出错有关问题!

急!!! 编译出错问题!!!
var
      Query:TADOQuery;
begin
      Query:=TADOQuery.Create(self);
_____________
[Error]:Undeclared   identifier: 'self '

是什么意思?   怎么会没   self呢?
哪能位大哥能否说明一下．．．．

[解决办法]
对比以下两种写法:


procedure test();
var
Query:TADOQuery;
begin
Query:=TADOQuery.Create(self);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
Query:TADOQuery;
begin
Query:=TADOQuery.Create(self);
end;
[解决办法]
self指当前对象 要看self所在的环境
[解决办法]
你可以这样写
procedure test(aOwner:TComponent);
var
Query:TADOQuery;
begin
Query:=TADOQuery.Create(aOwner);
end;

调用test(self);