Dienst "wird beendet"

[FriFra]

Ja, da pipe ich noch eine message zu einem anderen Programm (das sich übrigens daraufhin korrekt beendet) und dann sollte eigentlich schluß sein... ist es aber nicht

Delphi-Quellcode:

procedure TEasyServer.ServiceStop(Sender: TService; var Stopped: Boolean);
var
  PipeClient: TPipeClient;
begin
  PipeClient := TPipeClient.Create('', 'easyServerPipe');
  PipeClient.SendString('quit');
  PipeClient.Free;
  Stopped := True;
end;

Wenn ich den dienst über den Dienste-Manager beende piped er die genannten Messages auch an die anderen Programme, aber da wird er dann auch beendet. ich habe langsam den Verdacht das DoStop nicht die richtige Methode ist... Ich würde den dienst auch knallhart abschießen, wenn es denn eine Terminate methode gäbe...