>>483

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
TreeView1.Selected := TreeView1.GetNodeAt(MousePos.X,MousePos.Y);
end;