怎么制作一个可以拉伸的虚线框

如何制作一个可以拉伸的虚线框？
我用TShape可以画出一个虚线框，但我想要它可以拉动边或角来来改变尺寸，请问如何做？
[解决办法]
处于边缘时，如果点击鼠标了，记录开始拉伸动作。
鼠标移动时根据鼠标的坐标，改变TShape控件的宽和高。
鼠标松开时，不再改变。
可以在TShape上载动态创建两个标签，一个可以关闭，令一个调整大小。
需要全局变量。