Crear un servicio en delphi

[Joviali]

Buenas

He modificado el codigo por esto:

Código Delphi [-]
procedure Tsv_actualiza.temporizadorTimer(Sender: TObject); 
begin  
  if Not procesoenEjecucion then     
  begin                 
    WinExec('calc',SW_SHOWNORMAL);     
  end; 
end;  

procedure Tsv_actualiza.ServiceExecute(Sender: TService); 
begin   
  temporizador.Enabled := True;  
  while not Terminated do     
    ServiceThread.ProcessRequests(True);   
  temporizador.Enabled := False;
end;

Lo unico que hago es lanzar la calculadora, pero cuando ejecuto el servicio no se lanza la calculadora sin embargo en el administrador de tares aparece en memoria el proceso.¿por que no se ejucuta con normalidad?.Si me creo un servicio y lanzo el comando:

Código Delphi [-]
WinExec('calc',SW_SHOWNORMAL);

se ejecuta con normalidad.

En definitiva lo que busco es crear un servicio donde lance una aplicacion si no esta ejecutada y lo haga repetitivamente.

Pd. no consigo resaltar sintaxis en delphi , me dice que no tengo permisos.