新人求助，文件拖放问题

开发用xe2。涉及文件拖放只有一个简单函数
procedure TForm1.WMDROPFILES(var Msg: TMessage);
……
a := DragQueryFile(Msg.wParam, $FFFFFFFF, Buffer, 1024);
for a := 0 to a - 1 do begin
DragQueryFile(Msg.wParam, a, Buffer, 1024);
……
end;
DragFinish(Msg.wParam);
end;
以及create初始化
procedure TForm1.FormCreate(Sender: TObject);
……
DragAcceptFiles(Handle, True);
……
在64位win7下运行正常，release版在win10下运行出问题，文件拖进窗体鼠标右下出现小+号但放手后没反应，有人碰过类似情况吗？