Delphi 7移植到Delphi XE5碰到及解决的问题 （2）

原代码：

if not (Key in ['0'..'9', #8]) then
begin
    MessageBeep(0);
end;

编译提示：

W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

解决方法：

if not CharInSet(Key, ['0'..'9', #8]) then
begin
    MessageBeep(0);
end;