Добавить кнопку в заголовок

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
CanClose=0;
ShowMessage("Форма не хочет закрываться.");
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
private:    // User declarations
  bool Checked;
  TCanvas *MyBtnCanvas;
public:     // User declarations
  void WMNCPaint(TMessage &Message);
  void WMNCMouseMove(TMessage &Message);
  void WMNCLButtonDown(TMessage &Message);
  __fastcall TForm1(TComponent* Owner);
protected:
  BEGIN_MESSAGE_MAP
    VCL_MESSAGE_HANDLER(WM_NCPAINT, TMessage, WMNCPaint)
    VCL_MESSAGE_HANDLER(WM_NCMOUSEMOVE, TMessage, WMNCMouseMove)
    VCL_MESSAGE_HANDLER(WM_NCLBUTTONDOWN, TMessage, WMNCLButtonDown)
  END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  Checked=false;
  MyBtnCanvas=new TCanvas();
  MyBtnCanvas->Handle=GetWindowDC(Handle);
}
//---------------------------------------------------------------------------
void TForm1::WMNCPaint(TMessage &Message)
{
  if (Checked) {
    MyBtnCanvas->Brush->Color=clYellow;
  } else {
    MyBtnCanvas->Brush->Color=clBlue;
  }
  DefWindowProcA(Handle,Message.Msg,Message.WParam,Message.LParam);
  MyBtnCanvas->Ellipse(Form1->Width-100,6,Form1->Width-80,25);
}
//---------------------------------------------------------------------------
void TForm1::WMNCMouseMove(TMessage &Message)
{
  DefWindowProcA(Handle,Message.Msg,Message.WParam,Message.LParam);
  int x = Message.LParamLo-Form1->Left, y = Message.LParamHi-Form1->Top;
  if ((x >= Form1->Width-100) && (x < Form1->Width-80) && (y >= 6) && (y <= 25)) {
    if (!Checked) {
      Checked=true;
      WMNCPaint(Message);
    }
  } else {
    if (Checked) {
      Checked=false;
      WMNCPaint(Message);
    }
  }
}
//---------------------------------------------------------------------------
void TForm1::WMNCLButtonDown(TMessage &Message)
{
  DefWindowProcA(Handle,Message.Msg,Message.WParam,Message.LParam);
  if(Checked) {
    ShowMessage("Your Own Event");
  }
}
//---------------------------------------------------------------------------