Работа с TrayIcon

void __fastcall TMain::FormClose(TObject *Sender, TCloseAction &Action)
{
        Action=caNone; // Прервать команду закрытия, далее новая команда
        Application->ShowMainForm = false;
        ShowWindow(Handle,SW_HIDE); // Скрываем программу
        ShowWindow(Application->Handle,SW_HIDE); // Скрываем кнопку с TaskBar'а
}

// in Form's header...
void __fastcall WMSysCommand(TMessage &Msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage, WMSysCommand)
END_MESSAGE_MAP(TForm)
//---------------------------------------------------------------------------
// in Form's source...
void __fastcall TForm1::WMSysCommand(TMessage &Msg)
{
unsignedint sys_code = Msg.WParam & 0xFFF0;
switch (sys_code)
{
case SC_MINIMIZE:
{
// minimize command requested
// TO TRAP: comment out the following two lines,
// and remove the break line.
// Msg.Result = 0;
// return;
break;
}
case SC_MAXIMIZE:
{
// maximize command requested
// TO TRAP: comment out the following two lines,
// and remove the break line.
// Msg.Result = 0;
// return;
break;
}
}
TForm::Dispatch(&Msg);
}