代码如下：

procedure Trkform.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#13,#8,#46]) then
begin
key:=#0;
MessageBeep(1);
Application.MessageBox('请输入数字','提示',MB_OK);
end;
if key=#13 then
edit5.SetFocus;
end;

运行正常，但有一个缺点，如果输入的是字母，那么他会提示一次“请输入数字'”，如果打开输入法输入中文，那么他会提示两次“请输入数字'”了。

請使用 additional 頁面之 MaskEdit 元件

MaskEdit1.EditMask:='!99999;1;_';

可以有效限制 user 輸入之資料，並且不會反覆出現警告視窗，一直按ok也很煩。