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

Question

原来有人问过次问题，但是他提供的连接地址打不开，望各位大虾给指点一下：一般情况下，我们都是把TIDTCPserver的控件拖到FORM上，然后直接双击其ONEXECUTE事件并编写此事件的处理代码，现因需要，要动态创建TIDTCPserver，并在创建后为之分配onexecute的处理事件，请教有经验的朋友，如果为此程序传递参数？给定的处理模块为ServerExecute(AThread:   TIdPeerThread)，在以下的代码中：   
      ServerSocket   :=   TIDTcpServer.Create(self);   
      ServerSocket.DefaultPort   :=   ListenPort;   
      ServerSocket.OnExecute   :=   ServerExecute();     //此处serverexecute传递进来的参数应该是什么？？   
    
      ServerSocket.Active   :=   true;   
    
  谢谢。 

Answer 1

.....
  public
    procedure  ServerExecute(AThread: TIdPeerThread);
    { Public declarations }
  end;
......
var
  ServerSocket: TIdTCPServer;
begin
  ServerSocket:= TIdTCPServer.Create( Owner );
  ServerSocket.OnExecute:=ServerExecute;
end;

Answer 2

只是把ServerExecute赋给ServerSocket.OnExecute，不用传参吗？