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

Question

我有一个 Delphi 6 程序，它允许用户在页面上拖动控件。我通过在 MouseDown 事件中使用以下代码来做到这一点。

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

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