请教：如何动态创建TIDTCPserver并为之分配相应的onexecute处理事件？

[sodme]

一般情况下，我们都是把TIDTCPserver的控件拖到FORM上，然后直接双击其ONEXECUTE事件并编写此事件的处理代码，现因需要，要动态创建TIDTCPserver，并在创建后为之分配onexecute的处理事件，请教有经验的朋友，如果为此程序传递参数？给定的处理模块为ServerExecute(AThread: TIdPeerThread)，在以下的代码中：
ServerSocket := TIDTcpServer.Create(self);
ServerSocket.DefaultPort := ListenPort;
ServerSocket.OnExecute := ServerExecute(); //此处serverexecute传递进来的参数应该是什么？？

ServerSocket.Active := true;

谢谢。

[VeryOldMan]

可参考：
http://expert.csdn.net/Expert/topic/2520/2520048.xml?temp=.9329187

[「已注销」]

谢谢。问题已经解决。