Закрыть модальную форму изнутри

SendMessage(Handle, WM_DESTROY, 0, 0)

SendMessage(Handle, WM_CLOSE, 0, 0);

Close();
Perform(WM_CLOSE,0,0);

#include "Unit2.h"

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Form2->ShowModal();//можно Form2->Show();
}

private:
int count;

//---------------------------------------------------------------------------
void __fastcall TForm2::FormShow(TObject *Sender)
{
 if(Timer1->Enabled){Timer1->Enabled = false;}
 Label1->Caption = "10";
 count = 10;
 Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
 count--;
 Label1->Caption = IntToStr(count);
 if(count == -1)
 {
  Timer1->Enabled = false;
  //закрываемся
  Close();
 }
}

void __fastcall TForm2::Button1Click(TObject *Sender)
{
Canvas->MoveTo(10,10);
Canvas->LineTo(50,100);
Sleep(2000);
Close();
}

PostMessage(this->Handle, WM_CLOSE,0,0);

    else {
        ShowMessage( "Broken link. Try again or... try something else ;)" );
        PostMessage(this->Handle, WM_CLOSE,0,0);
        return;
    }