treeview scroll (rolar tela automatico)

Bom dia a todos.

Implementei uma rotina de drag and drop na minha treeview com sucesso, mas faltou um detalhe:

Se eu tiver uma treeview que ocupe toda a altura do form, ao arrastar um item não consigo fazer com que o scroll desca ou suba sozinho.

Gostaria que ficasse como o windows explorer que ao chegar no fim/inicio da tela ele rola o scroll (tela) para baixo/cima automaticamente.

Alguem sabe como fazer isso?

Uso o delphi 2006.

Grato a todos.