你可以在edit1的KeyPress事件中写:
if not (Key in ['0'..'9']) then
  Key := #0; //或者也可以弹对话框报错

解决方案 »

  1.   

    1、不在Delphi中运行,这样程序不会报错。
    2、将Tools|Debugger Options...中的Integrated debugging的勾去掉,也不会报错。
      

  2.   

    靠!你用那么多exit干吗,不要在Except节中用exit试试看。
      

  3.   

    不能在Delphi运行,直接运行EXE文件就不会错了.
      

  4.   

    你脱离delphi直接运行exe,就不会报错,
    同意楼上的说法,要exit干什么
      

  5.   

    EXIT虽然多了一点,但也没有关系。
    你可以是在编译器运行那是DELPHI系统报错,但如果是单独的EXE就没关系的啦。
      

  6.   

    全部输完后判断可以调用onexit