Ich denke, das Problem ist, dass du auf das TImage.OnMouseMove reagierst und dadurch die Koordinaten relativ zum ganzen Image bekommst, du aber die relativ zum Ausschnitt brauchst. Du musst also die Image- in die Scrollbox-Koordinaten umrechnen:
Delphi-Quellcode:
X := X - Image1.Left;
Y := Y - Image1.Top;
Das ganze noch mit MoveX/Y und StartX/Y.