Delphi无边框Form拖动

用Delphi作登录窗口，若是使用无边框Form，想要拖动窗口，能够在某个控件的OnMouseDown事件中写下如下代码

ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);