Реорганизация интерфейса

class TWindowMain : public TForm
{
    ...
    // Внутри тела класса главного окна
    void WM_QueryEndSession (TMessage &msg);
    BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER (WM_QUERYENDSESSION, TMessage, WM_QueryEndSession)
    END_MESSAGE_MAP (TForm)
    ...
};
 
// А реализацию метода уже где удобно (можно было и внутри класса сразу же сделать,
// а не просто объявление писать)
void
TWindowMain::WM_QueryEndSession (TMessage &msg)
{
    Close();
    TForm::Dispatch(&msg);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{
if(Msg.message == WM_KILLFOCUS) ShowMessage("!!!");
}
//---------------------------------------------------------------------------

void __fastcall TForm2::New_Form_Proc(TMessage& msg)
{
    switch (msg.Msg) {
        case WM_KILLFOCUS:
            if (Form2) {
    keybd_event(VK_LCONTROL, 0x1D, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
            }
            break;
    }
 
    Old_Form_Proc(msg);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Deactivate(TObject *Sender)
{
ShowMessage("!!!"); // Делаем что надо
}
//---------------------------------------------------------------------------

private:    // User declarations
    void __fastcall ApplicationEvents1Deactivate(TObject *Sender);

void __fastcall TForm2::ApplicationEvents1Deactivate(TObject *Sender)
{
ShowMessage("!!!"); // Делаем что надо
}