动态生成ClientSocket的问题

已经定义了
void __fastcall ClientServiceRead(TObject *Sender,TCustomWinSocket *Socket);
void __fastcall ClientServiceConnect(TObject *Sender,TCustomWinSocket *Socket);
void __fastcall ClientServiceDisConnect(TObject *Sender,TCustomWinSocket *Socket);
void __fastcall ClientServiceError(TObject *Sender,TCustomWinSocket,TErrorEvent ErrorEvent,int &ErrorCode);
};作为ClientSocket的公共处理函数。

程序中动态生成了多个ClientSocket，利用TList来管理
TList *SocketList = new TList;
TClientSocket *ClientSkt = new TClientSocket(this);
ClientSkt->Name.sprintf("ClientSocket%d",i+1);
ClientSkt->Address = "168.168.0.3";
ClientSkt->Port = 1234;
SocketList->Add(ClientSkt);

我想在动态生成的ClientSocket在调用Open（）方法后共享定义好的事件，
ClientSkt->OnConnect = ClientServiceConnect;
ClientSkt->OnError = ClientServiceError;
ClientSkt->OnDisconnect = ClientServiceDisconnect;
ClientSkt->OnRead = ClientServiceRead;
ClientSkt->OPen();
但是动态生成的ClientSocket没有执行相关事件！
各位帮忙啊！