Benutze doch lieber die Ereignisse OnMouseDown oder OnMouseUp deiner TImage-Komponente. Da bekommst du als Paramater x bzw. y die Koordinaten relativ zu der oberen linken Ecke der Komponente überliefert, mit denen du dann weiterarbeiten kannst.
mfg
PS: Willkommen in der
DP 
Edit: Noch zur Erklärung, warum GetCursorPos in diesem Fall "falsche Werte" liefert: Die Koordinaten sind die Maus-Koordinaten auf den
gesamten Bildschirm bezogen. In der Hilfe von Delphi zu GetCursorPos steht:
Zitat:
Mit GetCursorPos können Sie die aktuellen Bildschirmkoordinaten des Mauscorsours ermittteln.