还是不行啊

Question

procedure TForm7.Button3Click(Sender: TObject); 
var mes:string; 
begin 
mes:='是否要删除当前销售记录'; 
if application.MessageBox(pchar(mes),pchar('等待确认') 
    ,+MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idok then 
    begin 
    TotalMoney:=TotalMoney-ADO_tmpsel.fieldbyname('sum').AsFloat; 
    edit4.text:=FloattoStr(TotalMoney); 
ado_tmpsel.Open ; 
    ado_tmpsel.First ; 
    if not ado_tmpsel.Eof then 
    ADO_tmpsel.Delete;//删除当前销售记录 
ado_tmpsel.next ; 
    end; end; 怎么还是错误啊………………………… 键列信息不足或不正确，更新影响到多行…… 

Answer 1

procedure TForm7.Button3Click(Sender: TObject); 
  var mes:string; 
begin 
  mes:='是否要删除当前销售记录'; 
  if application.MessageBox(pchar(mes),pchar('等待确认') 
    ,+MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idok then 
  begin 
    TotalMoney:=TotalMoney-ADO_tmpsel.fieldbyname('sum').AsFloat; 
    edit4.text:=FloattoStr(TotalMoney); 
    {ado_tmpsel.Open ; 
    ado_tmpsel.First ; 
    if not ado_tmpsel.Eof then 
      ADO_tmpsel.Delete;//删除当前销售记录 
     ado_tmpsel.next;}
    showmessage(edit4.text);
    {帮你注释掉了一段代码，运行看有没有错误！} 
  end; 
end; 
ado_tmpsel.Open;
ado_tmpsel.sql.text里面的语句是怎么写的？