动态创建的TEdit如何设置OnKeyPress事件

Question

//unit Define中要调用的过程
procedure  onlyNumber(sender:TObject; var Key: Char);
implementation
//只能输入数字
procedure  onlyNumber(sender:TObject;var Key: Char);
begin
  case Key of
    '0'..'9',#8:exit;
    else
      Key:=#0;
  end;
end;//使用单元中的过程
var
  txt:TEdit;
begin
    txt:=TEdit.Create(self)
    if datatype=1 then
      txt.OnKeyPress:=onlyNumber(sender,key);//////////////////////////////这里应该怎么写？
end;

Answer 1

txt.OnKeyPress := OnlyNumber;

Answer 2

晕 ，OnlyNumber放在unit Define不行
放到调用的同一单元就搞定了