こてちゅさん、リエッチさん、ＭＬではいつもお世話になっています、Golfです。
（ただし、私はROMのみだけど）
昔、以下のような記述で何とか動作させたことがあります。（今見てもよくわからん！）
参考になるかどうか分かりませんがよかったら、使って下さい。
（日付関数使わせてもらっています）

Treeviewコントロールのdragwithinイベントに記述します

//--------------------------------------------------------------
//ドロップ ターゲットとして指定された項目をハイライト表示します。
//--------------------------------------------------------------
tv_1.SetDropHighlight(handle)
//--------------------------------------------------------------
//ドラッグが、表示されている最初の項目にきたら、１項目上にずらす
//--------------------------------------------------------------
Ll_tvi_ato = tv_1.FindItem(FirstVisibleTreeItem!, 0)
if handle = Ll_tvi_ato then
　Ll_tvi = tv_1.FindItem(previousTreeItem! , Ll_tvi_ato)
　tv_1.SetFirstVisible (Ll_tvi)
　return
end if
//--------------------------------------------------------------
//ドラッグが、表示されている最後の項目にきたら、１項目下にずらす
//--------------------------------------------------------------

Ll_tvi = tv_1.FindItem(nextvisibleTreeItem! ,handle) //次の項目が表示範囲外＝最後の項目
if Ll_tvi <= 0 then
 Ll_tvi = tv_1.FindItem(FirstVisibleTreeItem!,0)
 Ll_tvi = tv_1.FindItem(nextTreeItem! , Ll_tvi) //先頭の次の項目が表示域のＴＯＰにくる
 tv_1.SetFirstVisible (Ll_tvi)
end if