用Delphi编写Win2000服务程序

       while not Terminated do begin

              ServiceThread.ProcessRequests(False);

       end;

当然，也可以在OnExecute中处理某些任务，如监听某个端口，但是这常常会导致该Service不能及时响应Stop/Pause等请求。当OnExecute执行完了，该服务实际上就完成了任务要结束了（terminate）。

参考资料：

MSDN，Delphi VCL源代码，Delphi帮助文档