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

Question

小小鸟(急电)：用BDE的Table控件，dbGride显示数据其中“删除”按钮想转换成Ado的ADOTable 控制用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;