delphi TreeView 鼠标右击选择节点

TreeView树形目录！当鼠标右击某个节点时，弹出一个PopMenu的下来菜单！这是如何让被右击的节点同时被高亮选择呢！比如我选择的是A节点！A节点高亮显示！这时突然在B节点处鼠标右击！可是A仍然高亮显示被选择！只是B节点右侧弹出了PopMenu！我想让鼠标右击的同时B节点既被高亮选择又弹出PopMenu

在 TREEVIEW的两个鼠标事件里写：
procedure TForm1.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
PopupMenu1.Popup(X,Y);
end;

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
TTreeView(Sender).GetNodeAt(X,Y).Selected := True;
end;

OK，祝你好运！