Как вызвать событие объекта TListBox, когда его экземпляр является членом моего класса

class nLog
{
 private:
    AnsiString USER_NAME; //Имя авторизованного пользователя (для записи в текстовый лог)
    bool EnableTxtLoging; //true - если при инициализации файла не было ошибки
    AnsiString LogFile;//имя файла текущего лога, в который пишется текст
    TListBox *LIST;//сюда копируем ListBox с формы
    FILE* fLog;//файл лога
    SYSTEMTIME sTime;//время для заголовка текстового лога
    AnsiString msg;//сообщение, которое будем записывать в лог
 
    void __fastcall WriteToList(String Message);//записывает сообщение лога в TListBox
    void __fastcall WriteLogTxt();//записывает сообщение лога в текстовый файл
 
 protected:
 public:
    __fastcall nLog(TListBox *LogList, int ID_U, AnsiString USER_N);
    __fastcall ~nLog();
 
    void __fastcall Add(AnsiString Message);//Вызывает функции WriteToList и WriteLogTxt
    void __fastcall Clear();//функция очищает только ListBox
};

//---------------------------------------------------------------------------
class TLog
{
  private:
    TListBox *LogListBox;
    TForm *LogForm;
    int ClicksCount;
  public:
    __fastcall TLog(TListBox *LstBoxSrc, TForm *FormSrc);
    void __fastcall LogListBoxClick(TObject *Sender);
} *Log;
//---------------------------------------------------------------------------
__fastcall TLog::TLog(TListBox *LstBoxSrc, TForm *FormSrc)
{
  LogListBox = LstBoxSrc;
  LogForm = FormSrc;
  LogListBox->Items->Add("Application was started at: " + Time().CurrentTime());
}
//---------------------------------------------------------------------------
void __fastcall TLog::LogListBoxClick(TObject *Sender)
{
  LogListBox->Items->Add("Was Clicked at: " + Time().CurrentTime());
  LogForm->Canvas->TextOut(10,10,"ListBox was Clicked " + IntToStr(ClicksCount++) + " times.");
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  Log = new TLog(ListBox1,this);
  ListBox1->OnClick = Log->LogListBoxClick;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  delete Log;
  Log = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
  ShowMessage("Clicked");
}

void __fastcall TLog::LogListBoxClick(TObject *Sender)
{
  LogListBox->Items->Add("Was Clicked at: " + Time().CurrentTime());
  LogForm->Canvas->TextOut(10,10,"ListBox was Clicked " + IntToStr(ClicksCount++) + " times.");
  Form1->ListBox1Click(Sender);
}

__fastcall nLog::nLog(TListBox *LogList)
{
    //устанавливаем переданные параметры:
    LIST = LogList;
    LIST->OnClick = CLICK;
...
}

void __fastcall nLog::CLICK(TObject *Sender)
{
    Application->MessageBox(Sender->ClassName().w_str(),L"",0);
 
}