TTreeView

[Sergey2]

Есть TreeView. На нем есть popup меню. Нужно "зажигать" и "тушить" пункты меню в зависимости от того на каком пункте меню вызвали. Включаем RightClickSelect и в обработчике onPopup проверяем TreeView.Items[i].Selected.
Но оказывается, пунк меню приобретает этот Selected только если его кликнуть левой клавишей мыши. Даже визуально видно, что хоть выделение переходит на кликнутый элемент, пунтирная рамка остается на предыдущем элементе.
При этом Treview.Selected.AbsoluteIndex показывает номер кликнутого правой кнопкой пункта.
Почему не работает Treeview.Items[I].Selected?

[Pitbull]

procedure TForm1.TreeUserContextPopup(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;