自定义过程怎么调用？

我在form5里写了一个使文本框只接受输入数字的过程，这样以后在form5里的所有Edit的OnKeyPress事件里都可以选择这个过程了，但是我其他好几个form里也都需要这样的一个功能，不想在每个form里都再写一遍。那么其他form要是也想调用这样一个过程该怎么调用呢？
procedure TForm5.NumEditKeyPress(Sender: TObject; var Key: Char);
//使Edit文本框里只接受输入数字
begin
if not(key in['0'..'9',#13,#8]) then
Key:=#0;
end;