为什么服务程序cpu占用率100%?

Question

procedure TService1.ServiceStart(Sender: TService;
  var Started: Boolean);
begin
  SocketService := TSocketService.Create(false);
  Started := True;
end;procedure TService1.ServiceExecute(Sender: TService);
begin
  while not terminated do
  begin
    ServiceThread.ProcessRequests(False);
  end;
end;

Answer 1

while not terminated do
  begin
    ServiceThread.ProcessRequests(False);
    Sleep(1);//让cpu休息一下
  end;