c++builder 怎么移动没有标题栏的窗体！

void __fastcall TMainForm::TitLabelMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button == mbLeft){
ReleaseCapture();
Perform(WM_NCLBUTTONDOWN,HTCAPTION, 0);
}
}

说明，这是一个Label控件TitLabel里的MouseDown事件代码片断，作用是，鼠标在TitLabel上点下，并移动时使窗体移动。