TreeView的Expanding和MouseDown有关问题

TreeView的Expanding和MouseDown问题
代码如下：
procedure   TFmrightset.TreeView2Expanding(Sender:   TObject;   Node:   TTreeNode;
    var   AllowExpansion:   Boolean);
var   t:   TTreeNode;
begin
t   :=   TreeView2.GetNodeAt(tx,ty);
if   t   <>   nil   then
ShowMessage(txy.Text);
end;
////////////////////////////////////////////////////
procedure   TFmrightset.TreeView2MouseDown(Sender:   TObject;
    Button:   TMouseButton;   Shift:   TShiftState;   X,   Y:   Integer);
begin

if   button=mbleft   then
    begin
tx   :=   x;
ty   :=   y;
    end;
end;

出现了一个奇怪的毛病：
我点击节点2时ShowMessage节点1，然后再点击节点3时则ShowMessage节点2。。。总之都慢了一拍。这是为什么？我找了很久发觉好像没有人遇到类似情况似的。。只好问问各位了。感恩

[解决办法]
procedure TFmrightset.TreeView2Click(Sender: TObject);
begin
if TreeView2.GetHitTestInfoAt(tx, ty) = [htOnButton] then
begin
//点击的是+号
end;
end;