كيف اضع الشرط على edit

[justnick]

استخدم الدالة الاتية لمنع الحروف والارقام التى تود منعها

كود :

procedure Tfrm_main.Edit1KeyPress(Sender: TObject; var Key: Char); begin if CharInSet(key, ['0'..'9','-','#','@','!']) then key := #0; end;