>>120
Shape って TShape か?
D&D 使わずに、OnMouseUp/Down と OnMouseMove で
コード書いたほうが簡単じゃね?