delphi在程序中创建控件怎么处理相应消息？

[netsinger]

delphi在程序中创建控件怎么处理相应消息？
我现在用TButton.Create创建的控件,请问怎么处理它的OnClick事件。