Desplazarse en un SMDBGrid al hacer drag and drop

[[ElDioni]]

Hola a todos otra vez,

tengo una duda que no se si se podrá hacer, hace un par de días presenté otro poblema que al final pude resolver y colgué el código en este mismo foro, sobre ordenar unos partes de trabajo en un SMDBGrid arrastrandolos y soltandolos. las funciones que hice me funcionan bien pero ahora me surge el problema de que si quiero mover un registro que está en la posición 40 a la posición 1 arrastrandalo no puedo porque mientras que voy arrastrando el dbgrid no se mueve a los registros superiores y si se moviese se movería también el cursor selector del registro que había empezado a arrastrar.
¿Se le ocurre a alguien como podría hacer que el SMDBGrid se desplazara hacia arriba o hacia abajo para ver los registros que no se muestran en ese momento en pantalla sin que se mueva el cursor de la posición original?

Gracias como siempre por su tiempo y saludos.