🚀 go-pugleaf

Here is the TestEventsImplImpl.cpp File as modified to add your code:
I will Follow this with another message or 2 showing the rest of the files 
you need to see.

// TESTEVENTSIMPLIMPL : Implementation of TTestEventsImplImpl (CoClass: 
TestEventsImpl, Interface: ITestEventsImpl)

#include <vcl.h>
#pragma hdrstop

#include "TESTEVENTSIMPLIMPL.H"
#include "frmServer.h"

/////////////////////////////////////////////////////////////////////////////
//---------------------------------------------------------------------------
TThreadList* TTestEventsImplImpl::InterfaceList = NULL;  // Code added from 
newsgroup info
//---------------------------------------------------------------------------
TTestEventsImplImpl::TTestEventsImplImpl()    // Function Def added from 
newsgroup info
{
    if(!InterfaceList)
        InterfaceList = new TThreadList;
    if(InterfaceList)
        InterfaceList->Add(this);
}
//---------------------------------------------------------------------------
TTestEventsImplImpl::~TTestEventsImplImpl()   // Function Def added from 
newsgroup info
{
      if(InterfaceList)
      {
          TList *list = InterfaceList->LockList();
          int index = list->IndexOf(this);

          if(index > -1)
              list->Delete(index);

          int count = list->Count;
          InterfaceList->UnlockList();

          if(count < 1)
          {
              delete InterfaceList;
              InterfaceList = NULL;
          }
      }
}
//---------------------------------------------------------------------------
// TTestEventsImplImpl
STDMETHODIMP TTestEventsImplImpl::Trigger()                 // Existing 
Function
{
    WideString strName;                                     // Existing Code

    TTestEventsImplImpl *pIntf = NULL;                      // Code added 
from newsgroup info
    TList *list = InterfaceList->LockList();                // Code added 
from newsgroup info

    for(int x = 0; x < list->Count; x++)                    // Code added 
from newsgroup info
    {
        try                                                 // Code added 
from newsgroup info
        {
            pIntf = (TTestEventsImplImpl *)list->Items[x];  // Code added 
from newsgroup info
            if(pIntf)                                       // Code added 
from newsgroup info
                pIntf->Fire_Event1(&strName);               // Code Modified 
from newsgroup info
        }
        catch(...) { }                                      // Code added 
from newsgroup info

    }

    InterfaceList->UnlockList();                            // Code added 
from newsgroup info

//    Fire_Event1(strName);                                   // Existing 
Code
    return S_OK;                                            // Existing Code
}
//---------------------------------------------------------------------------