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

У меня есть TTreeView, который может иметь много узлов, когда много узлов развернуто, дерево использует много места на экране .

Теперь предположим, что я хочу перетащить узел, который находится в нижней части TreeView, наверх, я физически не могу видеть верхнюю часть TreeView, потому что узел, который я выбираю, находится внизу. При перетаскивании узла в верхнюю часть TreeView я хотел бы, чтобы TreeView автоматически прокручивалась вместе со мной при перетаскивании, по умолчанию этого не происходит.

Прекрасный пример такого поведения можно увидеть в проводнике Windows. Если вы попытаетесь перетащить файл или папку, при наведении курсора на перетаскиваемый элемент (узел) он автоматически прокручивается вверх или вниз в зависимости от положения курсора.

Надеюсь, это имеет смысл.

PS, я уже знаю, как перетаскивать узлы , Я хочу, чтобы TreeView прокручивался вместе со мной при перетаскивании при наведении курсора на верхнюю или нижнюю часть TreeView.

Спасибо.