NT-Service starten und dann 50% CPU Auslastung

[ueding]

Hallo
ich habe mit diesem TUT einen Dienst erstellt
wenn ich jetzt diesen Dienst starte, habe ich 50% CPU Auslastung (dualCore CPU).
Ich habe nachstehenden Code geändert.

Delphi-Quellcode:

procedure TService1.Timer2Timer(Sender: TObject);
begin
 showMessage('timer 2');
end;

Zeitinterwal 10 Sekunden

Delphi-Quellcode:

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
  showMessage('OnStart');
  Started := True;
  timer2.Enabled := true;
   showMessage('Timer eingeschaltet')
end;

Was muss ich machen damit die CPU Auslastung zurück geht ?

Danke schon mal für Eure HILFE


Gregor