Bild in Scrollbox mit Maus verschieben

[BlueStarHH]

Hallo,

ich habe eine TScrollbox, die ein TImage enthält. Das TImage ist größer als die Scrollbox. Wird nun mit der linken Maustatste auf das Bild geklickt, die Maustaste gedrück gehalten und die Maus bewegt, soll die Scrollbox in die Richtung der Mausbewegung scrollen. Also ein verschieben des Bildes mit der Maus. In OnMouseDown vom Bild könnte man sich dazu den ersten geklickten Punkt merken und in OnMouseMove dann irgendwie mit der aktuellen Mausposition verrechnen. Nur wie? Danke!