Как избежать исчезновения значка в SysTray при перезагрузке проводника?

//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(Winapi::Messages::TMessage &Message)
{
    TForm::WndProc(Message);
    if (Message.Msg == TBC)
    {
        ShowMessage("TaskbarCreated");
    }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    TBC = RegisterWindowMessage(TEXT("TaskbarCreated"));
}
//---------------------------------------------------------------------------

// в классе формы:
// ...
    protected:
        virtual void __fastcall WndProc(TMessage &message);

// реализация:
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(TMessage &message)
{
    TForm::WndProc(message);
    if (message.Msg == TBC)
    {
        // тут добавляем иконку в трей
    }
}

UINT TBC;
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    // Зарегистрировать сообщение с именем TaskbarCreated
    TBC = RegisterWindowMessage(TEXT("TaskbarCreated"));
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(TMessage &Message)
{
    TForm::WndProc(Message);
    //  Ловим сообщение с именем TaskbarCreated, как только оно получено - значит, был пересоздан таскбар, и нужно заново добавить в трей иконку
    if (Message.Msg == TBC)
    {
        //ShowMessage("TaskbarCreated");
        // Заново добавляем иконку в трэй
        TrayIcon1->Restore();                // Не добавляется!
        TrayIcon1->Update();                 // Не добавляется!
        TrayIcon1->SetDefaultIcon();      // Не добавляется!
        TrayIcon1->ShowMenu();            // Не добавляется!
 
    }
}

void __fastcall TForm1::CreateTI() // не забудь в класс формы добавить прототип и поле TTrayIcon *MyTI...
{
    MyTI = new TTrayIcon(Application);
    MyTI->Visible = true;
    MyTI->Icons = ImageList1;
    MyTI->IconIndex = 0;
    MyTI->PopupMenu = PopupMenu1;
}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(TMessage &Message)
{
    TForm::WndProc(Message);
    //  Ловим сообщение с именем TaskbarCreated, как только оно получено - значит, был пересоздан таскбар, и нужно заново добавить в трей иконку
    if (Message.Msg == TBC)
    {
        FreeAndNil(&MyTI); // пересоздаем
        CreateTI();
    }
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    // Зарегистрировать сообщение с именем TaskbarCreated
    TBC = RegisterWindowMessage(TEXT("TaskbarCreated"));
    CreateTI();
}

MyTI->PopupMenuOn = imRightClickUp;