Delphi edit只允许输入数字

 if not (key in ['0'..'9',#8]) then
    key := #0;