Delphi無邊框Form拖動

用Delphi作登錄窗口，若是使用無邊框Form，想要拖動窗口，能夠在某個控件的OnMouseDown事件中寫下如下代碼

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