Как свернуть программу в трей?

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    Action = caNone; // никаких действий по закрытию не предпринимать
    Hide(); // скрыть форму
    // тут вызвать метод, добавляющий иконку в трей. Проще - использовать TTrayIcon/CoolTrayIcon
}

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