Нерегулярная ошибка при автозагрузке программы: "Cannot create system shell notification icon"

void __fastcall TOptions::Run_for_WindowsClick(TObject *Sender)
{
   TCHAR *sVarName1 = name.c_str();
   TCHAR *sKey = "Software\\Microsoft\\Windows\\CurrentVersion\\Run";
   AnsiString text = ExtractFilePath(Application->ExeName)+ExtractFileName(Application->ExeName);
   TCHAR *sVal = text.c_str();
   HKEY hKeyResult = NULL;
   LONG rc = RegOpenKeyEx(HKEY_LOCAL_MACHINE,sKey,0,KEY_ALL_ACCESS,&hKeyResult);
   if (rc == ERROR_SUCCESS)
     {
        if (Run_for_Windows->Checked)
       {
            if(RegSetValueEx(hKeyResult,sVarName1,0,REG_SZ,(BYTE*)sVal,lstrlen(sVal))!=ERROR_SUCCESS)
           {
            RegCloseKey(hKeyResult);
           }
       }
        else
       {
          RegDeleteValue(hKeyResult, sVarName1);
          RegCloseKey(hKeyResult);
       }
     }
}

 DWORD dwIndex,dwSizeName;
 TCHAR *sKey = "Software\\Microsoft\\Windows\\CurrentVersion\\Run",sParamName[80];
 HKEY hKeyResult = NULL;
 LONG rc = RegOpenKeyEx(HKEY_LOCAL_MACHINE,sKey,0,KEY_ALL_ACCESS,&hKeyResult);//получение параметров данного данного ключа
 
 if (rc == ERROR_SUCCESS)
 {
    for(dwIndex = 0;;dwIndex++)
    {
      dwSizeName = 80;
      if(RegEnumValue(hKeyResult,dwIndex,sParamName,&dwSizeName,NULL,NULL,NULL,NULL)!=ERROR_SUCCESS)
      {
       break;
      }
       if(AnsiString(sParamName)==name)
       {
         Run_for_Windows->Checked = true;
       }
    }
 
  RegCloseKey(hKeyResult);
 }
 else
 {
  ShowMessage("Ошибка считывания параметра запуска из реестра: "+SysErrorMessage(GetLastError()));
 }
 //---------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
UINT TBC;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(Winapi::Messages::TMessage &Message)
{
    TForm::WndProc(Message);
    if (Message.Msg == TBC)
    {
        ShowMessage("TaskbarCreated");
        TrayIcon1->Visible = true;
    }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TBC = RegisterWindowMessage(TEXT("TaskbarCreated"));
}
//---------------------------------------------------------------------------

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TTrayIcon *TrayIcon1;
    void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    void __fastcall WndProc(Winapi::Messages::TMessage &Message);
};

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
        Application->Initialize();
        Application->MainFormOnTaskBar = true;
        Application->CreateForm(__classid(TForm1), &Form1);
 
        ShowWindow(Application->Handle,SW_HIDE);
        Application->ShowMainForm = false;
 
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    catch (...)
    {
        try
        {
            throw Exception("");
        }
        catch (Exception &exception)
        {
            Application->ShowException(&exception);
        }
    }
    return 0;
}
//---------------------------------------------------------------------------

TBC = RegisterWindowMessage(TEXT("TaskbarCreated"));

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Application->ShowMainForm= false;
    Visible= false;
    // Cледующее можно выставить в инспекторе
    TrayIcon1->OnClick=             &AcSetTrayVisibleExecute;
    ApplicationEvents1->OnMinimize= &AcSetTrayVisibleExecute;
}
//---------------------------------------------------------------------------
// Созданный Action в ActionList
void __fastcall TForm1::AcSetTrayVisibleExecute(TObject *Sender)
{
    //TrayIcon1->Visible= !TrayIcon1->Visible;
    Visible= !Visible;
 
    if(Visible)
    {
        WindowState = wsNormal;
        Application->BringToFront();
    }
    else
    {
        WindowState = wsMinimized;
    }
}
//---------------------------------------------------------------------------

Timer3->Interval = 1000;
void __fastcall TProgress::Timer3Timer(TObject *Sender)
{
   if(FindWindow("Progman",0))
   {
    AddIcon();
    Timer3->Enabled = false;
    
   }
}