Dienst wird von Windows beendet

[Benni]

Servus,

ich schreibe einen Dienst, der soweit auch wunderbar funktioniert. Aber wenn man ihn startet, beendet Windows diesen Dienst sofort wieder, weil er sich angeblich im Leerlauf befindet. Wie kann ich das unterbinden?
Kennt dieses Phänomen jemand?

Vielen Dank!

Benjamin Heil

[Benni]

Ich hab's gefunden: Ich habe die OnExecute-Prozedur zum Initialisieren verwendet statt OnStart. Das war der Fehler. Die Delphi-Hilfe sagt dazu:

"Wenn die Aktionen in der Behandlungsroutine für OnExecute abgeschlossen sind, wird der Dienst-Thread beendet."

Jetzt funzt alles ..