Shape soll Form nicht überschreitten.

[QuickAndDirty]

Du hast doch einfach 2 Randbedingungen die zu behandeln sind.

Delphi-Quellcode:

GetCursorPos(mouseposition);
if mouseposition.y < Form.top then //Rand oben 
  Shape.top := 0
else if mouseposition.y > Form.top + Form.clientheight-Shape.height then //Rand unten
  shape.top := Form.clientheight-Shape.height
else
  shape.top := mouseposition.y-Form.top;    //innerhalb des vorgesehenen Wertebereichs.