我在dbgrid中查到数据 如果双击数据就能把id号传给edit3.text我要删除选择的数据用了下面的程序。怎么不删除
procedure TForm1.Button4Click(Sender: TObject);
begin
try
if MessageDlg('你确定要删除该数据吗?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
adoquery1.close;
adoquery1.SQL.Clear;
ADOQuery1.SQL.Add('Delete temp_lixz where id=strtoint(edit3.text)');
adoquery1.Open;
ShowMessage('数据已经删除');
end;
except
ShowMessage('请选择要删除的数据');
end;
end;