怎么能让文本框只允许输入数字
或者说怎么判断输入的是数字

if not (key in ['0'..'9',#8]) then
begin
  key := #0;
  messagedlg('只能输入数字',mterror,[mbok],0);
end;

好办法