Mas o menos puedes enfocarlos así:
Código Delphi
[-]
if RealizandoDragDrop then
if (Y > frmppal.clientHeight -10) and (frmppal.VertScrollBar.Position >=10) then
frmppal.VertScrollBar.Position:=frmppal.VertScrollBar.Position-10;
Quizás tengas que poner un timer para que no corra mucho la barra.
EDITO: Esto lo pones en el FrameMouseMove
Un saludo