Service Anwedung unter Win Xp SP2 D7 pro

[Bob68]

Hallo,
ich habe eine Service Anwedung erstellet und dann eine Form hinzugefügt.
Hier ist die erste Unit vom Service:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TS_Packloesch = class(TService)
  private
    { Private-Deklarationen }
  public
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;

var
  S_Packloesch: TS_Packloesch;

implementation

{$R *.DFM}

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

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

end.

So habe ich es immer gemacht und es hat sonst immer geklappt(unter NT).
Danke Bob68