Warum lässt sich der Dienst nicht beenden?

[Basilikum]

ein weiterer Punkt - gemäss Win32-Doc muss der Aufruf so erfolgen:

Delphi-Quellcode:

procedure TService.Start;
var
  dpTable: Array[0..1] of TServiceTableEntry;
begin
  dpTable[0].lpServiceName := 'Doesnt matter';
  dpTable[0].lpServiceProc := @ServiceMain;
  dpTable[1].lpServiceName := nil;
  dpTable[1].lpServiceProc := nil;
  StartServiceCtrlDispatcher(dpTable[0]);
end;