关于TtcpServer的监听问题，实在搞不定，请多多帮忙！ ( 积分: 100 )

各位大侠,我在用delphi7的TtcpServer和TtcpClient编程实现以下功能:
分别实现两个程序,一个主控端,一个受控端.主控端运行在一台机器上，受控端运行在多台机器上。
在主控端中，设定一个全局数组LidArr，和一个整型数Num指示LidArr中的元素位置。然后实现一个函数Punion，使用TcpClient1.Sendln()向所有受控端发送指令，TcpServer监听。然后设置WaitForSingleObject()方法等待。函数返回Num值
受控端也有一组TtcpServer和TtcpClient控件，如果接到主控端指令就开始实现对数据库的预定操作，如果完成一项操作，就向主控端发消息，并告知完成操作的id编号。
主控端的TcpServer1Accept方法里面，我把每个id都放入LidArr数组，Num加1。然后再向刚刚完成工作的受控端发送新的指令。当LidArr的Num值达到规定的值的时候，设置SetEvent(mEvent)，使Punion继续执行。
我的问题是
Punion函数返回的值总是0，不知道为什么。

各位大侠,我在用delphi7的TtcpServer和TtcpClient编程实现以下功能:
分别实现两个程序,一个主控端,一个受控端.主控端运行在一台机器上，受控端运行在多台机器上。
在主控端中，设定一个全局数组LidArr，和一个整型数Num指示LidArr中的元素位置。然后实现一个函数Punion，使用TcpClient1.Sendln()向所有受控端发送指令，TcpServer监听。然后设置WaitForSingleObject()方法等待。函数返回Num值
受控端也有一组TtcpServer和TtcpClient控件，如果接到主控端指令就开始实现对数据库的预定操作，如果完成一项操作，就向主控端发消息，并告知完成操作的id编号。
主控端的TcpServer1Accept方法里面，我把每个id都放入LidArr数组，Num加1。然后再向刚刚完成工作的受控端发送新的指令。当LidArr的Num值达到规定的值的时候，设置SetEvent(mEvent)，使Punion继续执行。
我的问题是
Punion函数返回的值总是0，不知道为什么。

远程控制的多机管理哦！
你可以参考一下delphi自带的DEMO。（netChat）

我看过了，可是感觉例子很简单，没有涉及到这种变量返回的。我感觉这个是不是跟线程有关。

我自己把问题解决了，多加一层调用就可以了。到底为什么，我也不清楚！
我该怎么分配分数和结贴呢？

接受答案了.