如何绘制像Delphi XE2这样的控制对齐指示器？

Question

我有一个Delphi 6程序，允许用户在页面上拖动控件。 我是通过在MouseDown事件中使用以下代码来实现的。

ReleaseCapture;                              
TWinControl(Sender).perform(WM_SYSCOMMAND,$F012,0);

如何绘制一组与拖动对象的左侧和顶部对齐的线条，以便用户可以将控件与其他控件对齐（类似于XE2设计）？