编辑框有关问题！

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

[解决办法]
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;