限制edit框输入内容（新问题）

Question

以前限制edit框输入内容都用下面的语句实现
form   keypreview   :=   true;   
  在   edit的onkeypress里加入判断代码。   
 if (Key   in   ['0'..'9'])   then   
 begin   
   Key   :=   #0;   
 end;  
现在的问题出来了编译的时候提示char和word类型不匹配，仔细想了想，发觉原来的
edit的onkeypress是这样定义的procedure TForm1.Edit1KeyDown(Sender: TObject;
  var Key: Char; Shift: TShiftState);
现在的delphi是这样定义的
procedure TForm1.Edit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
请问怎么修改以前的语句key in ['0'..'9']才能解决这个问题?

Answer 1

简单一点来说就是怎么样把char类型转换成word类型.（沙发呵呵）

Answer 2

对不起，是我初心了，呵呵问题解决了if not (key in ['0'..'9','a'..'z','A'..'Z',#8]) then key:=#0;