delphi中有关edit的事件

我要form1.edit1只能输入数字，所以在其事件中：
procedure TForm1.Edit1KeyPress(Sender: TObject; var..Key: Char);
begin
if not(key in['0'..'9',#8])then
begin
key:=#0;
MessageBeep(1);
end;
但现在我要在edit1一直到edit100都实现只能输入数字，要怎么做
请写详细

在每个EDIT的按键事件下拉框那里选择你写的这个过程函数，就不用重复写那么多个了。

如果你只是为了执行exit函数的话，可以直接调用，没有必须让其失去焦点。