Перетаскивание файлов на форму - не работает по гайду

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
    void __fastcall WMDropFiles(TWMDropFiles &message);
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_DROPFILES,TWMDropFiles,WMDropFiles)
    END_MESSAGE_MAP(TForm);
};

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    DragAcceptFiles(this->Handle, true);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::WMDropFiles(TWMDropFiles &message)
{
    ShowMessage(L"Пожалуйста, пусть эта функция вызовется!");  // Не вызывается
}

class TForm1 : public TForm
{
__published:
    void __fastcall FormCreate(TObject *Sender);
protected:
    virtual void __fastcall WndProc(Messages::TMessage &Message) override;
public:
    __fastcall TForm1(TComponent* Owner);
};
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    DragAcceptFiles(this->Handle, true);
}
 
void __fastcall TForm1::WndProc(Messages::TMessage &Message)
{
    if (Message.Msg == WM_DROPFILES)
    {
        // Обработка перетаскивания
        TWMDropFiles dropFiles = *reinterpret_cast<TWMDropFiles*>(&Message);
        int count = DragQueryFile(dropFiles.handle, 0xFFFFFFFF, NULL, 0);
        for (int i = 0; i < count; ++i)
        {
            TCHAR filename[MAX_PATH];
            if (DragQueryFile(dropFiles.handle, i, filename, MAX_PATH))
            {
                ShowMessage(String("Файл: ") + filename);
            }
        }
        DragFinish(dropFiles.handle);
        return; // чтобы сообщение не передавать дальше
    }
    TForm::WndProc(Message);
}

    ChangeWindowMessageFilter(WM_DROPFILES, MSGFLT_ADD);
    ChangeWindowMessageFilter(WM_COPYDATA,  MSGFLT_ADD);
    ChangeWindowMessageFilter(0x0049,       MSGFLT_ADD);