Dienst mit 100% CPU-Last

[Catbytes]

Hallo,

habe folgenden Test-Service geschrieben:

Delphi-Quellcode:

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
  while not Terminated do
  begin
    ServiceThread.ProcessRequests(False);
  end;
end;

Läßt sich registrieren und starten - nur hat das Teil durchgehend 100% CPU-Last.

Weiß einer warum?