Перетаскивание VirtualTreeview для упорядочивания узлов в списке

У меня есть список узлов. Я хотел бы добавить функцию перетаскивания для перестановки, но я не знаю, как это сделать.

Я попытался использовать событие OnDragDrop TVirtualStringTree, но не смог его понять. Я просмотрел документацию, и, к сожалению, там нет минимального образца кода для простого перетаскивания узлов.

Обратите внимание, что это просто одноуровневый список. Нет иерархии. :)