动态创建TIdTCPServer问题

[zhaowd]

因为没有窗体,所以不能直接把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它变成类的成员函数试试

[ccrun.com]

是的，TCPServerExecute 定义成类成员函数即可。