我试图用以下语句判断输入edit4中的内容是否为数字（在一本书上看到的），但总是没有成功，不知道为什么。
try
numOut:=strtoint(edit4.Text);
except
showmessage('请正确输入数量！');
exit;
end;

请问还有没有其它方法可以实现这个功能

在edit1的keypress事件中输入下面的代码：
if not key in['0'..'9'] then
key:=#0;

高