procedure xxx.ServiceStart(Sender: TService; var Started: Boolean);begin Coinitialize(nil); ....end;
procedure xxx.ServiceStop(Sender: TService; var Stopped: Boolean);begin ... CoUninitialize;end;