Нерегулярная ошибка при автозагрузке программы: "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()));
 }
 //---------------------------------------------------------------------

void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
ShowMessage( "Click!" );
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
CheckBox1->Checked = true;
}

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 TrayIcon1->Visible = false;
}
//---------------------------------------------------------------------------
LRESULT CALLBACK WndProc(HWND hWnd, UINT uMessage, WPARAM wParam, LPARAM lParam)
{
 static UINT s_uTaskbarRestart;
 
 switch(uMessage)
  {
    case WM_CREATE:
    s_uTaskbarRestart = RegisterWindowMessage(TEXT("TaskbarCreated"));
    break;
    default:
 
  if(uMessage == s_uTaskbarRestart)
   {
     Form1->TrayIcon1->Visible = true;
   }
  }
return DefWindowProc(hWnd, uMessage, wParam, lParam);
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 WindowProc = WndProc;
 Form1->Visible = false;
 TrayIcon1->Visible = true;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include "tchar.h"
#pragma hdrstop
 
#include "Unit1.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 name = ExtractFileName(ChangeFileExt(Application->ExeName,""));
 Form1->Visible = false;
 //TrayIcon1->Visible = false;
}
//---------------------------------------------------------------------------
LRESULT CALLBACK WndProc(HWND hWnd, UINT uMessage, WPARAM wParam, LPARAM lParam)
{
 ShowMessage("В функции");
 static UINT s_uTaskbarRestart;
 
 switch(uMessage)
  {
    case WM_CREATE:
    s_uTaskbarRestart = RegisterWindowMessage(TEXT("TaskbarCreated"));
    
    break;
    default:
 
  if(uMessage == s_uTaskbarRestart)
   {
     
     Form1->TrayIcon1->Visible = true;
   }
  }
return DefWindowProc(hWnd, uMessage, wParam, lParam);
}
//----------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
 WindowProc = WndProc;
 
 DWORD dwIndex,dwSizeName;
 TCHAR *sKey = L"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);
 }
 TrayIcon1->Visible = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Run_for_WindowsClick(TObject *Sender)
{
   TCHAR *sVarName1 = name.w_str();
   TCHAR *sKey = L"Software\\Microsoft\\Windows\\CurrentVersion\\Run";
   UnicodeString 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)*sizeof(TCHAR))!=ERROR_SUCCESS)
           {
            RegCloseKey(hKeyResult);
           }
       }
        else
       {
          RegDeleteValue(hKeyResult, sVarName1);
          RegCloseKey(hKeyResult);
       }
     }
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::N1Click(TObject *Sender)
{
 Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Form1->Hide();
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#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");
    }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    TBC = RegisterWindowMessage(TEXT("TaskbarCreated"));
}
//---------------------------------------------------------------------------