TreeView - abrir botão direito sobre o nó clicado

Quando associamos um PopupMenu com um Treeview e clicamos com botão direito o nó selecionado continua sendo o último que clicamos com botão esquerdo. Use o código abaixo para corrigir isso

procedure TConsultaDespesaLojaForm.TreeVContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);

var

  No: TTreenode;

begin

  No := TreeV.GetNodeAt(MousePos.X, MousePos.Y) ;

  if Assigned(No) then

  begin

    TreeV.Selected := No;

    //mnuDoIt1.Caption := Format('Do For Item: %s', [treeNode.Text]) ;

  end

  else

    Handled := true;

end;