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

MainFormOnTaskBar = false

void __fastcall TForm3::CheckBox1Click(TObject *Sender)
{
    if (CheckBox1->Checked==true) {
        CheckBox2->Checked=false;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::CheckBox2Click(TObject *Sender)
{
    if (CheckBox2->Checked==true) {
        CheckBox1->Checked=false;
    }
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "trayicon"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
 if (CheckBox1->Checked==true) {
        CheckBox3->Checked=false;
}}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::CheckBox3Click(TObject *Sender)
{
 if (CheckBox3->Checked==true) {
        CheckBox1->Checked=false;
}}
//---------------------------------------------------------------------------

ShowWindow(Application->Handle, SW_MINIMIZE);

// 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);
}