Wie erstelle ich einen Dienst für WinNT / Win2000 / Win XP

[kersm]

Hallo,

hab ein problem, versuche nach dem tut einen dienst für Vista mit TurboDelphi zu erstellen.

habe allerdings probleme damit, installieren funkt einwandfrei aber beim starten bekomme ich immer "Fehler 1053: Der Dienst antwortete nicht rechtzeitig auf die Start- oder Steuerungsanforderung."
Die message boxes, oncreate und afterinstall werden einwandfrei angezeigt...

mein code:

Delphi-Quellcode:

  
implementation

{$R *.DFM}

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

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

procedure TService2.ServiceAfterInstall(Sender: TService);
begin
  ShowMessage('AfterInstall');
end;

procedure TService2.ServiceAfterUninstall(Sender: TService);
begin
  ShowMessage('AfterUnistall');
end;

procedure TService2.ServiceCreate(Sender: TObject);
begin
  ShowMessage('OnCreate');
end;

procedure TService2.ServiceExecute(Sender: TService);
begin
  ShowMessage('OnExecute - begin');
  while not Terminated do
  begin
    ServiceThread.ProcessRequests(False);
  end;
  ShowMessage('OnExecute - end');
end;

procedure TService2.ServiceStart(Sender: TService; var Started: Boolean);
begin
  ShowMessage('OnStart');
  Started := true;
end;

procedure TService2.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  ShowMessage('OnStop');
  Stopped := true;
end;

end.

bin für jede hilfe dankbar!

lg martin