Переписал всю логику, так как авторская реализация так и не поддалась моему пониманию. (но глючила при этом ужасно)
Увы, но от авторского варианта на данный момент осталась лишь одна процедура Clip, которая позволяет захватывать курсор на время изменения позиции, что считаю очень удобным дополнением.