有关Table与ADOTable组件的setkey方法的请教，小虾请大侠给解决一下

Question

我用SQL Server 2000建了一个学生表，表内容基本如下
字段  number   name   xb   age   address
记录   ...     ...   ..    ...    ...
建立number为主键，name为索引
在delphi中用Table、DataSource连接表,用DBGrid显示表内容，窗体上有一个Edit组件用于输入要查找的值。
程序如下：
Ｐrocedure TForm1.Button1Click(Sender:TObject);
begin
with table1 do
begin
indexfieldnames:='number';
setkey;
fieldbyname('nuber').asstring:=edit1.text;
if gotokey then
   showmessage('查找成功');
else
   showmessage('查找失败');
end;
end;
用Table 组件能执行，
换成ADOTable 后把名字改了以后不能用，总是出错。
出错语句为
Ｕndeclared identifier:'setkey'
Undeclared identifier:'gotokey'
could not compile used unit'Unit1.pas'

Answer 1

ADOTable不支持SetKey方法,用Sort和Locate吧