求SOCKET高手帮助，在线，急！！！

我的程序在服务器端，需要用INI文件配置运行时的端口数目，端口数目在每次程序运行时都可能不一样。我生成一个TSERVERSOCKET的指针，然后运行时根据INI文件来生成相应数目的TSERVERSOCKET数组，然后在配置其内容
procedure TMain.SocketDataPRO(Sender: TObject;Socket: TCustomWinSocket);
var
   Thread:DataThread;
begin
   //多个SOCKET公用的读取信息，显示信息，保存信息程序
   beep;
end;
   SocketList: array of TServerSocket;
   SetLength(SocketList,portcount);
   for i:=0 to portcount-1 do
       begin
         SocketList[i]:=TServerSocket.Create(self);
         with  SocketList[i] do
          begin
            ServerType:=stThreadBlocking;          
            Port:=StrToInt(TELECTL.INPORTBOX.Items[i]);
            //设定消息处理函数（关键之处）
            OnClientRead:= Main.SocketDataPRO;
            OnClientWrite:= Main.SocketDataPRO;
            //OnAccept:=Main.SocketDataPRO;
            //OnClientDisconnect:=Main.SocketDataPRO;
            Open;
          end;        
       end;
但我指定的客户端信息（OnClientRead,OnClientWrite)消息响应不能工作，而OnAccept、OnClientdisconnect就可以。如何可以让OnClientRead,OnClientWrite也能绑定到我自己的函数呢？