[Service] - Hohe Auslastung

[xZise]

Hallo DP,
ich programmiere gerade ein Service für die Schule um besser die Computer zu verwalten.
(Auch das Tool )
Dummerweise hat der Service nach der Installation auf einen Windows 2000 Rechner eine hohe Auslastung.
Wobei die Einzige Schleife folgende ist:

Delphi-Quellcode:

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

Aber die ist nur dafür da, dass Windows den Service nicht vorzeitig beendet.
Oder kommt Windows 2000 damit nicht zurecht.

MfG
xZise