小小鸟：用BDE的Table 控件，dbGride显示数据其中 一个“删除”按钮 想转换成 Ado的ADOTable

Question

用BDE的Table 控件，dbGride显示数据 其中 一个“删除”按钮 代码如下：
 procedure TFrmDel.Cmd4delClick(Sender: TObject);
 begin  if txtpassword.text='supper' then
   if length(TxtEmpNo.Text)<>0 then form1.Table1.IndexFieldNames:='EmpNo';
 //想用Adotable控制如：form1.ADOTable1.IndexFieldNames:='vcNo';
    if form1.Table1.findkey([txtEmpNo.Text]) then  //这里不知道怎么写？
     
   begin
 if  Messagedlg('ÄãȷʵҪɾ³ýÕâÌõ¼Ç¼?',mtConfirmation,[mbyes,mbNo],0)=mrYes   then
         form1.Table1.Delete;
    end
  else
    Messagedlg('No  This  Man!', mtError,[mbOk],0);
    TxtEmpNo.Text:='';
    TxtPassWord.text:='';
end;

Answer 1

form1.AdoTable1.Locate('EmpNO', VarArrayOf([txtEmpNo.Text]), [loPartialKey]) then  

Answer 2

if adotable.locate('vcNo',txtEmpNo.Text,[]) then

Answer 3

十分感谢！你们的回复 请详细说明一下参数的用法。form1.AdoTable1.Locate( 'EmpNO ', VarArrayOf([txtEmpNo.Text]), [loPartialKey]) then  
if adotable.locate( 'vcNo ',txtEmpNo.Text,[]) then
顺便说一下，给分怎么给的。我是第一次提问。