Сворачивание программы в трей

//В обpаботчике FormCloseQuery:
{
CanClose=Tag;//Tag по условию равен 0
MainForm->Hide();//Спрятать форму
TrayIcon1->Visible=1;//появление иконки
}
//В методе для появления формы(например при нажатии на иконку в трее)
{
MainForm->Show();//показать форму
TrayIcon1->Visible=0;//спрятать иконку(если нужно)
}
//В методе для закрытия программы(не вечно же ей работать)
{
Tag=1;
Close();
}

void __fastcall TForm::FormResize(TObject *Sender)//прячем форму если минимайз
{
if(WindowState==wsMinimized)//проверка на минимизацию
    {
    Hide();                    //прячет форму
    TrayIcon1->Visible=1;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm::TrayIcon1Click(TObject *Sender)//при нажатии на иконку делаем форму видимой
{
Show();                      //показать форму
WindowState=wsNormal;//Убираем минимизацию
TrayIcon1->Visible=0;   //прячем иконку в трее(если надо)
}