Delphiben mit kell átírnom a lenti kódban, hogy jól működjön? (Drag and Drop)

Örültem, hogy végre egy olyan kódot találtam, ami működik. Igaz nekem csak önmagában működik, a saját programomba betéve nem,de nem is ez a legnagyobb bajom. A kérdésem az lenne, hogy lehet azt megoldani, hogy ha elkezdek vonszolni egy labelt, akkor a megjelenő "kép" ne az egér kurzor poziciójában legyen, hanem magán a labelen. Magyarul, ha elkezdem vonszolni, akkor ugye a kép 0,0 poziciója van az egér mutatójánál. De ha én pl a label 10,5 koordinátáján kezdem el vonszolni, akkor a kép is úgy jelenjen meg, hogy a mutató bal oldalán 10, felette 5 pixellel kezdődjön.

Előre is köszönöm

A kód amiről beszélek: [link]