Se para el servicio a los 12 segundos

[aram2r]

Hola buenas...y gracias, tengo un servicio creado con New|Other|Service Aplication....y esto me crea un ejecutable...lo ejecuto y me aparece el servicio..pero a los 12 o 13 segundos desaparece misteriosamente...¿¿¿¿????? a q puede ser devido?????
por si sirve de ayuda aki pongo un codigo, ejemplo del q yo he hecho, a los 12 o 13 segundos deja de pitar y desaparece el servicio:


unit servicio;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
ExtCtrls;

type
TService1 = class(TService)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure ServiceExecute(Sender: TService);
private
{ Private declarations }
public
function GetServiceController: TServiceController; override;
{ Public declarations }
end;

var
Service1: TService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;

procedure TService1.Timer1Timer(Sender: TObject);
begin
Beep;
end;


Una vez mas gracias por leer esto