怎么不报错退出呢

if ADOQuery1.IsEmpty then exit;
  if not MsgBoxSel_save('确认要删除？  ') then exit;
  ADOQuery1.Delete;
  try
    ADOQuery1.UpdateBatch;
  except
    ADOQuery1.CancelUpdates;
      Application.MessageBox('已使用，不能删除','提示',mb_ok);
    Exit;
  end;在表中我设了外键,当删除,它会提示delete和约束冲突,无法删除,功能是可以实现,但是按理它会提示Application.MessageBox('已使用，不能删除','提示',mb_ok);为什么不提示呢