No he entrado al máximo detalle a analizar la solución que propones, pero a simple vista denoto algunos asuntos que no sé si funcionarán exactamente como tu lo prevés :
1. Utilizas RecordCount. Dependiendo de la base de datos, este valor es en la mayoría de las ocasiones muy falso, devolviendo valores que no suelen ser los reales. En el caso de Firebird al menos, se ha hablado en múltiples ocasiones en los foros que no se debería usar RecordCount.
2. No veo cómo solucionas el tema de pulsar la tecla Shift, que es el asunto principal del hilo que cree en su momento y que aparece al principio del Post. El principal problema es que la multiselección en el DBGrid estándar no está prevista con la tecla Shift, como en cualquier otro programa (como ejemplo se podría poner cualquier programa de correo electrónico).
Al pulsar el Shift deberían seleccionarse todos los registros desde el que actualmente estaba seleccionado hasta el que acabas de hacer click con la tecla shift pulsada.
3. No sé si es eficiente ejecutar Locate y MoveBy al tener el DBGrid abierto y con el DataSet asociado también abierto.
... sólo eran algunos comentarios propios a la solución propuesta, sin desmerecer ni la una ni la otra.
