Не работает DragDrop при Запуски программы с правами администратора

void __fastcall Response(TWMDropFiles &Message);
    BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, Response)
        END_MESSAGE_MAP(TForm);

void __fastcall TForm3::FormCreate(TObject *Sender) {
    DragAcceptFiles(Handle, true);
}
 
void __fastcall TForm3::Response(TWMDropFiles& Message) {
 
        HDROP hdropHandle = (HDROP)Message.Drop;
        // Переменная для хранения имени файла
        char chName[MAX_PATH];
        // Число буксируемых файлов
        int viNumber = DragQueryFile(hdropHandle, -1, NULL, NULL);
 
        // ProgressBar1->Max = viNumber;
 
        for (int i = 0; i < viNumber; i++)
        {
            Application->ProcessMessages();
 
            DragQueryFileA(hdropHandle, i, chName, MAX_PATH);
 
            MyFiledDir(chName);
 
        }
        
        DragFinish(hdropHandle);
        
 
}

void __fastcall WMDropFiles(TWMDropFiles message);// как простая переменная
void __fastcall WMDropFiles(TWMDropFiles &message);// Или через ссылку.