Пишу в Delphi 7.0 ServiceApplication для примера

unit Main;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  SvcMgr, Dialogs, ExtCtrls;
type
  TServiceExample = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
  private
    Timer:TTimer;
    procedure TimerOnTimer(Sender: TObject);
  public
    function GetServiceController: TServiceController; override;
  end;
var
  ServiceExample: TServiceExample;
implementation
{$R *.DFM}
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  ServiceExample.Controller(CtrlCode);
end;
function TServiceExample.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;
procedure TServiceExample.ServiceStart(Sender: TService; var Started: Boolean);
begin
    Timer:=TTimer.Create(nil);
    Timer.OnTimer:=TimerOnTimer;
end;
procedure TServiceExample.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
    Timer.Free;
    Timer:=nil;
end;
procedure TServiceExample.TimerOnTimer(Sender: TObject);
begin
    Beep; //для примера
end;
end.

инсталирую,стартую — после старта он автоматически останавливаться ни как не могу понять где ошибка ? (система WindowsXP)

Не мешало бы добавить в ServiceStart и ServiceStop инициализацию соответствующих флажков (Started/Stopped)
а также событие OnExecute...