编辑框问题！！！！！

[yzhh12345]

怎样让我的EDIT只能输入 汉字 字母 数字 加 - 其它的都不能输入。谢谢各位大侠帮助下。。。。

[chenylin]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Case Ord(Key) of
32..42:Key:=#0;
44,46,47:Key:=#0;
58..64:Key:=#0;
91..96:Key:=#0;
123..127:Key:=#0;
end;