编辑框(edit)不给用delete键

Question

在事件（onkeypress）有这么一段话
  if not (key in ['0'..'9', '-']) then
    key := #0; 
谁知道在上面一段话中加入什么语句使得edit能使用delete键？
谢谢！

Answer 1

if not (key in ['0'..'9', '-',chr(vk_delete)]) then
    key := #0;

Answer 2

还是这样吧：
  if not (key in ['0'..'9', '-',chr(vk_delete),#8]) then
    key := #0;

Answer 3

为什么禁止用Delete键了？
另外,注意以下问题,他们也能达到Delete键的效果，你也一样要禁止：
1.选中文本，点击鼠标右键，再选择删除。
2.选中文本，点击鼠标右键，再选择剪切。
3.选中文本，按Ctrl+X键。
4.选中文本，按Backspace键。