动态创建的TEdit怎么设置OnKeyPress事件

动态创建的TEdit如何设置OnKeyPress事件
//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;



[解决办法]
txt.OnKeyPress := OnlyNumber;