1、首先，打开delphi 7，默认已经创建好了一个工程，如下图所示。
2、然后在窗口中添加一个标签控件和文本框控件，并修改标签的文字为成绩，文本框的name为EdtSorce，text为空。
3、然后选择文本框，并在属性面板中切换到“事件”选项卡，找到onKeyPress事件，点击进入代码编辑窗口。
4、然后在打开的代码窗口中写入以下代码。
5、运行后，效果如下，大家可以发现只有按下数字键，才会有字符在文本框中显示出来，其它按钮都没有反应。
6、如果大家还想允许小数字出现，并且退格键可用，那么还可以如下图所示进行代码修改。
