Создание иконки не через компонент TrayIcon

#include <vcl.h>
#include <shellapi.h>
#pragma hdrstop
 
const int IDC_TRAY1      = 1005;
const TCHAR *HINT_MESSAGE = L"Tray Hint Message";
 
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  // Загружаем иконку из ресурсов
    TrayIcon = new Graphics::TIcon;
    //TrayIcon->Handle = LoadImage(HInstance,L"MY_ICON",MAKEINTRESOURCE(3),0,0,0);
    TrayIcon->Handle = reinterpret_cast< HICON >( LoadImage( HInstance, TEXT( "MY_ICON" ), IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR ) );
    // Добавляем иконку
    AddIcon();
}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
    // Убираем иконку из трея, и удаляем указатель
    // TIcon, который был создан изначально.
    RemoveIcon();
    delete TrayIcon;
}
 
void __fastcall TForm1::WMTrayNotify(TMessage &Msg)
{
    // Параметр LPARAM указывает на тип сообщения мышки.
    // При клике правой кнопкой, показываем меню. При двойном клике
    // левой кнопкой, показываем форму.
    switch(Msg.LParam)
    {
        case WM_RBUTTONUP:
            // Получаем координаты курсора мышки и показываем в этом
            // месте всплывающее меню.
            POINT WinPoint;
            GetCursorPos(&WinPoint);
            SetForegroundWindow(Handle);
            PopupMenu1->Popup(WinPoint.x,WinPoint.y);
            PostMessage(Handle, WM_NULL, 0,0);
            break;
        case WM_LBUTTONDBLCLK:
            Visible = true;
            ShowWindow(Application->Handle, SW_SHOW);
            break;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AddIcon()
{
    // Добавляем иконку рядом с ситемными часиками
    NOTIFYICONDATA IconData;
    IconData.cbSize = sizeof(NOTIFYICONDATA);
    IconData.uID    = IDC_TRAY1;
    IconData.hWnd   = Handle;
    IconData.uFlags = NIF_MESSAGE|NIF_ICON|NIF_TIP;
    IconData.uCallbackMessage = WM_TRAYNOTIFY;
    lstrcpy(IconData.szTip, HINT_MESSAGE);
    IconData.hIcon  = TrayIcon->Handle;
 
    Shell_NotifyIcon(NIM_ADD,&IconData);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RemoveIcon()
{
    NOTIFYICONDATA IconData;
    IconData.cbSize = sizeof(NOTIFYICONDATA);
    IconData.uID    = IDC_TRAY1;
    IconData.hWnd   = Handle;
    IconData.hIcon  = TrayIcon->Handle;
 
    Shell_NotifyIcon(NIM_DELETE,&IconData);
}

#define WM_TRAYNOTIFY  (WM_USER + 1001)
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TPopupMenu *PopupMenu1;
    TMainMenu *Unload1;
    TButton *UnloadBtn;
    TMenuItem *fsd1;
    TButton *Button1;
    
 
 
 
 
private:    // User declarations
   Graphics::TIcon *TrayIcon;
   void __fastcall WMTrayNotify(TMessage &Msg);
   void __fastcall RemoveIcon();
   void __fastcall AddIcon();
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
     __fastcall ~TForm1();
 
BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_TRAYNOTIFY,TMessage,WMTrayNotify)
END_MESSAGE_MAP(TForm)
 
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
USERES("icon.res");
//---------------------------------------------------------------------------
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;
}
//---------------------------------------------------------------------------

#include "Unit1.h"
#include "resource.h"
// ...
 
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    // Загружаем иконку из ресурсов
    TrayIcon = new Graphics::TIcon;
    TrayIcon->Handle = reinterpret_cast<HICON>
        (LoadImage(HInstance, MAKEINTRESOURCE(MY_ICON), IMAGE_ICON, 0, 0,
        LR_DEFAULTCOLOR));
    // Добавляем иконку
    AddIcon();
}

#define MY_ICON 101

#define MY_ICON ЧЕГО_НИБУДЬ

    TrayIcon->Handle = reinterpret_cast<HICON>
        (LoadImage(HInstance, MAKEINTRESOURCE(MY_ICON), IMAGE_ICON, 0, 0,
        LR_DEFAULTCOLOR));

#define MY_ICON 101