delphi Delphi 代码创建控件与事件动态绑定【转】