Генерация событий сервером dll (.NET) для клиента exe (Delphi) в отдельном потоке

    internal static class GUIDS
    {
        internal const string SomeClass = "B777E76E-C89E-4A91-8A2F-9E9D9F39D7ED";
        internal const string ISimpleObject = "F2E16A00-E531-497D-8401-C63A662FBBFB";
        internal const string ISimpleEvents = "2EE0677E-2FD7-4352-85BE-7FC033E56831";
    }
 
    [Guid(GUIDS.SomeClass)]
    [ClassInterface(ClassInterfaceType.None)]
    [ComSourceInterfaces(typeof(ISimpleEvents))]
    public class SimpleObject : ISimpleObject
    {
        // Конструктор кокласса
        public SimpleObject()
        {
            _oldPropertyValue = SomeProperty = 0;
            // Создаём и запускаем свой поток (серверный)
            _thr = new Thread(new ThreadStart(Cycle));
            _thr.Start();
        }
 
        int _oldPropertyValue;
        Thread _thr;
 
        // Делегат, крутящийся в потоке
        void Cycle()
        {
            try
            {
                while (true)
                {
                    if (OnChanged != null)
                    {
                        if (SomeProperty != _oldPropertyValue)
                            OnChanged();
                        Thread.Sleep(1000);
                    }
                    else
                        _thr.Abort();
                }
            }
            finally { }
        }
 
        // Реализация интерфейса ISimpleObject
        public int SomeProperty { get; set; }
        public event Action OnChanged;
    }
 
    [Guid(GUIDS.ISimpleObject)]
    public interface ISimpleObject
    {
        [DispId(1)]
        int SomeProperty { get; set; }
    }
 
    [Guid(GUIDS.ISimpleEvents)]
    [InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
    public interface ISimpleEvents
    {
        [DispId(1)]
        void OnChanged();
    }