NT-Service starten und dann 50% CPU Auslastung

[tekkyeah]

Hallo zusammen, interessanter Thread,
ich habe einen Dienst der wunderbar läuft, aber das gleiche Problem mit der Auslastung der CPU.
Dann habe ich das hier gefunden

Zitat:

Delphi-Quellcode:

procedure TServiceExecutionRestriction.ServiceExecute(Sender: TService);
begin
  while not Sender.Terminated do
  begin
    Sender.ServiceThread.ProcessRequests(True); // Rechenzeit freigeben
  end;
end;

Nur, wie kann ich das einbinden ?
Die Prozedur wird von Delphi (BDS 2006) immer abgelehnt...
Kann mir jemand weiterhelfen ?

Gruß
Holger