Выделять узел TTreeView правой кнопкой мыши

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
   var Handled: Boolean);
 var
   tmpNode: TTreeNode;
 begin
   tmpNode := (Sender as TTreeView).GetNodeAt(MousePos.X, MousePos.Y);
   if tmpNode <> nil then
     TTreeView(Sender).Selected := tmpNode;
 end;

Взято с сайта: https://www.swissdelphicenter.ch