DELPHI 2010 > Consider using 'CharInSet' function in 'SysUtils' unit.

SysUtils单元里面的CharInSet函数替代你的key in [...]的代码

 

原来

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

改为

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