Service startet nicht

[Cici]

Das ganze unter D2005 probiert.
Selber effekt
Der Service lässt sich nicht installieren.
Das müsste doch wenigsten beepen - oder?

Code:

program Servicetest;

uses
  SvcMgr,
  Unit6 in 'Unit6.pas' {Service6: TService};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TService6, Service6);
  Application.Run;
end.

...und...

Code:

unit Unit6;

interface

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

type
  TService6 = class(TService)
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceExecute(Sender: TService);
  private
    {$R *.DFM}
  public
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;

var
  Service6: TService6;

implementation

{$R *.DFM}

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

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

procedure TService6.ServiceExecute(Sender: TService);
begin
  Beep;
end;

procedure TService6.ServiceCreate(Sender: TObject);
begin
  Beep;
end;

end.