Warum lässt sich der Dienst nicht beenden?

[Basilikum]

ich weiss nicht, ob dies alles ist, aber die Signatur müsste so sein:
procedure ServiceMain(dwArgc: DWord; lpszArgv: PChar); stdcall;