Problème avec mon service D2007

Bonjour, j'ai un service créé en Delphi 2007. Ce service est un timer qui toutes les 5 minutes lance une procédure. Quand je lance mon programme il s'arrête sans message --> Application.Run ne fait rien en somme. Il Fait bien le create mais ne passe jamais dans la procédure du timer quelqu'un peut il m'aider.

As-tu géré l'événement OnExecute ?

Code:

---

1 2 3 4 5

procedure TTonService.ServiceExecute(Sender: TService); begin while not Terminated do ServiceThread.ProcessRequests(True); //attend l'ordre de fermeture end;

---