Вызов PopupMenu

[YYYYY]

Спасибо всем! Вроде разобрался. Может корявый(пока) код, но работает:

procedure TMainForm.TreeView1ContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
var
  tmpNode: TTreeNode;
 begin
  TTreeView(Sender).PopupMenu.AutoPopup:=true;
  TreeView1.Selected:=nil;
  tmpNode := (Sender as TTreeView).GetNodeAt(MousePos.X, MousePos.Y);
  if tmpNode = nil then
   begin
    TTreeView(Sender).PopupMenu.AutoPopup:=false;
    exit;
   end;
    TTreeView(Sender).Selected := tmpNode;
 end;

Часть кода была взята здесь.