动态创建TIdTCPServer有关问题

动态创建TIdTCPServer问题
因为没有窗体,所以不能直接把TIdTCPServer控件放到窗体上,打算动态创建TIdTCPServer对象.请问OnExecute该如何实现？我的代码如下：
void __fastcall TCPServerExecute(TIdPeerThread *AThread)
{
   ...
}

主程序代码
{ 
 TCPServer = new TIdTCPServer(NULL);

  TCPServer->Active = false;
  TCPServer->Bindings->Items[0]->Port = 9009;
  TCPServer->OnExecute = TCPServerExecute;
}

以上代码调试报错：E2034 Cannot convert 'void (_fastcall *)(TIdPeerThread *)' to 'void (_fastcall * (_closure )(TIdPeerThread *))(TIdPeerThread *)'

请问该如何解决？谢谢！




[解决办法]
把TCPServerExecute它变成类的成员函数试试
[解决办法]
是的，TCPServerExecute 定义成类成员函数即可。