怎么用代码新建一个Tsocket类，并重载一个onRead函数

如何用代码新建一个Tsocket类，并重载一个onRead函数？
如何用代码新建一个Tsocket类，并重载一个onRead函数？
因为我需要在onread中加入自己的代码。

[解决办法]
....
TClientSocket *client = new TClientSocket;
client->OnRead = MyRead;

....
void __fastcall xxx::MyRead (System::TObject* Sender, TCustomWinSocket* Socket)
{
/// 写自己的代码
}
[解决办法]
TClientSocket *client = new TClientSocket（this）

父类最好是用UI或者Application等 依附主线程运行的类，不然可能会出莫名其妙的错误

其他跟2楼一样，其实你那不叫重载，那叫子类覆盖父类函数，或者实现虚函数。