Ach du meine Güte, ist das "schlecht" ... da gehen ja einige Mausbewegungen unter/verloren oder werden falsch ermittelt
Nja egal ... mach es doch selber (wie schon gesagt)
Ideal wäre eigentlich ein Maus-Hock (findet man hier in der
DP auch einiges zu diesem Thema)
oder du machst es so wie in dem Code.
Mouse.CursorPos aus der
Unit Controls
oder direkt die
WInAPI 
GetCursorPos aus der
Unit Windows
und die restlichen Berechnungen hast du ja in dem Code auch schon drin.
(das Ganze wird dort über einen Timer ausgewertet, was bei schnellen Bewegungen/Richtungswechseln natürlich "falsche" Meßwerte ergibt)