//подключение к пространству имён
objService := GetObject('winmgmts:\\.\Root\CIMV2');

//создание экземпляра класса EventViewerConsumer (потребитель событий)
objConsumer := objService.Get('EventViewerConsumer').SpawnInstance_();
//установка свойств потребителя событий
objConsumer.Name := 'ServiceStopped';
objConsumer.Description:='Service was stopped';
objConsumer.Severity:=1;
//запись потребителя событий
objConsumer.Put_;

//создание экземпляра класса __EventFilter (фильтр событий)
objFilter := objService.Get('__EventFilter').SpawnInstance_();
//установка свойств фильтра событий
objFilter.Name := 'ServiceStoppedEvent';
objFilter.QueryLanguage := 'WQL';
objFilter.Query := 'SELECT * FROM __InstanceModificationEvent WITHIN 5 WHERE TargetInstance isa ''Win32_Service'' AND TargetInstance.State=''Stopped''';
//запись фильтра событий
objFilter.Put_;

//******************************************************************************** ******************
objFilter := objService.Get('__EventFilter.Name=''ServiceStoppedEvent''');
objConsumer := objService.Get('EventViewerConsumer.Name=''ServiceStopped''');
//создание экземпляра класса __FilterToConsumerBinding (связка)
objBinding := objService.Get('__FilterToConsumerBinding').SpawnInstance_();
//установка свойств связки
objBinding.Filter := objFilter.Path_.RelPath;
objBinding.Consumer := objConsumer.Path_.RelPath;
//запись связки
objBinding.Put_;

procedure WaitForEvent;
var colServices: OleVariant;
   objEvent: OleVariant;
begin
colServices := objService.ExecNotificationQuery(objFilter.Query);
objEvent := colServices.NextEvent;
Form1.Caption:=objEvent.TargetInstance.Name;
VarClear(objEvent);
VarClear(colServices);
end;