为什么在activeform中使用Button=mbRight会出现incompatible type错误？(100分)

代码
procedure TResTree.TreeView2MouseDown(Sender: TObject;
Button: TMouseButton
Shift: TShiftState
X, Y: Integer);
var
p:TPOINT;
Axis_X,Axis_Y:Integer;
VL_Node:TTreeNode;
begin
if Button=mbRight then ~~~这句话出现错误
begin
VL_Node:=TreeView2.GetNodeAt(X,Y);
if (VL_Node<>nil) and (VL_Node.Selected) then
begin
GetCursorPos(p);
Axis_X := p.X;
Axis_Y := p.Y;
PopupMenu1.Popup(Axis_X,Axis_Y);
end;
end;
end;

哎，这个问题很难，没人会，极其失望~

把uses列表中的controls单元移到ActiveX,AxCtrls,ActiveFormProj1_TLB,后面就行了。

接受答案了.