Как можно отменить закрытие причаленной (docked) формы?

//---------------------------------------------------------------------------
void __fastcall TForm2::WMSysCommand(TWMSysCommand& msg)
{ 
    if(msg.CmdType ==0xF060) ; /* Form1->Caption = msg.CmdType ;*/
    else
    DefWindowProc(Handle,WM_SYSCOMMAND,msg.CmdType,MAKELPARAM(msg.XPos, msg.YPos));
}
//---------------------------------------------------------------------------

private:    // User declarations
        void __fastcall WMSysCommand(TWMSysCommand &msg);
protected:
#pragma option push -vi-
 BEGIN_MESSAGE_MAP
   MESSAGE_HANDLER(WM_SYSCOMMAND, TWMSysCommand, WMSysCommand)
 END_MESSAGE_MAP(TComponent) 
#pragma option pop

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1; // это у тебя есть, дальше - внимание:
 
// 1) переопределяем реакцию на клик по заголовку причаленной формы
// (этот метод имеет разные сигнатуры для 32 и для 64-битного компилятора, 
// последний параметр в 32-битах передается по ссылке, а не по значению,
// так что просто так убирать строки не нужно)
class TMyDockCaptionDrawer : public TDockCaptionDrawer
{
public:
#ifndef _WIN64
    virtual unsigned __fastcall DockCaptionHitTest(const System::Types::TRect & CaptionRect,
                                                   const System::Types::TPoint & MousePos)
#else /* _WIN64 */
    virtual unsigned __fastcall DockCaptionHitTest(const System::Types::TRect &CaptionRect,
                                                   const System::Types::TPoint MousePos)
#endif /* _WIN64 */
    {
        // вызываем DockCaptionHitTest предка, и если была нажата кнопка закрытия -
        // просто возвращаем dchtNone, как будто ничего не нажималось
        unsigned result = TDockCaptionDrawer::DockCaptionHitTest(CaptionRect, MousePos);
        return (result == dchtClose) ? dchtNone : result;
    }
};
 
// 2) теперь надо заставить приложение использовать не стандартный TDockCaptionDrawer,
// а новый, с переопределенной функцией
class TMyCaptionedDockTree : public TCaptionedDockTree
{
public:
    // для этого перегружаем вот этот метод и возвращаем id нового класса
    __classmethod virtual TDockCaptionDrawerClass __fastcall GetDockCaptionDrawer()
    {
        return __classid(TMyDockCaptionDrawer);
    }
};
 
 
// 3) а теперь надо подменить сам TCaptionedDockTree, делаем это
// в конструкторе главной формы
 
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    DefaultDockTreeClass = __classid(TMyCaptionedDockTree);
}