Ich will hier kurz noch anfügen, da ich das Problem auch grad hatte. Folgendes funktioniert zumindest:
Delphi-Quellcode:
//beide Zeilen nacheinander ausführen
PostThreadMessage(ServiceThread.ThreadID,CM_SERVICE_CONTROL_CODE, SERVICE_CONTROL_STOP,0); //hier könnte ein einfaches DoStop evtl. auch reichen
PostThreadMessage(ServiceThread.ThreadID,WM_Quit,0,0); //der ServiceThread verstrickt sich in einer Routine und bricht trotz Terminate nicht ab, wenn kein WM_Quit kommt.