Потеря Фокуса у формы

protected:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_NCACTIVATE, TMessage, OnNCActivateMessage)
END_MESSAGE_MAP(TForm)
void __fastcall OnNCActivateMessage(TMessage &Message);

void __fastcall TForm1::OnNCActivateMessage(TMessage &Message)
{
 if (!Message.WParam) Close();
 TForm::Dispatch(&Message);
}

__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
    Application->OnDeactivate = FormDeactivate;
}
 
void __fastcall TForm2::FormDeactivate(TObject *Sender)
{
    Close();
}

// AutoCloseForm.hpp
 
#ifndef __AUTOCLOSE_FORM__
#define __AUTOCLOSE_FORM__
 
class TAutoCloseForm : public TForm
{
protected:
    void __fastcall FormDeactivate(TObject *Sender)
    {
        Close();
    }
 
public:
    __fastcall virtual TAutoCloseForm(Classes::TComponent* AOwner)
        : TForm(AOwner)
    {
        OnDeactivate = FormDeactivate;
        Application->OnDeactivate = FormDeactivate;
 
    }
};
 
#endif

//---------------------------------------------------------------------------
 
#ifndef Unit2H
#define Unit2H
 
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
 
#include "AutoCloseForm.hpp" // <--- Добавляем - раз
 
class TForm2 : public TAutoCloseForm // Изменяем предка - два
{
__published:
private:
public:
    __fastcall TForm2(TComponent* Owner);
};
 
extern PACKAGE TForm2 *Form2;
 
#endif

#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
 
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
 
__fastcall TForm2::TForm2(TComponent* Owner)
    : TAutoCloseForm(Owner) // Изменяем предка еще и тут - три
{
}
 
// все остальное без изменений