Aplicación como Servicio

[Rysiu]

Hola a todos:

Quiero hacer una aplicacion que funcione como servicio en Windows, de esta manera al aplicacion estara funcionando sin necesidad de iniciar sesion en Windows. Ademas de esto, quiero que cuando se inicie sesion, salga un icono en "al lado del reloj de windows" de mi aplicacion para que el usuario pueda interactuar con ella.

Bien, el problema es que el servicio no me arranca. Ahora mismo el unico codigo que he añadido al proyecto de servicio es:

Código Delphi [-]
procedure TService1.ServiceExecute(Sender: TService);
begin
    try
       TrayIcon1.Visible:=True;
       i:=1;
       while not Terminated do begin
          Sleep(10000);
       end;
    finally
       TrayIcon1.Visible:=False;
    end;
end;

¿Alguna idea?


Muchas gracias