BCB中移动无标题窗口的

void   __fastcall   TForm1::FormMouseDown(TObject   *Sender,   TMouseButton   Button,  
              TShiftState   Shift,   int   X,   int   Y)  
  {  
          ReleaseCapture();  
          Perform(WM_NCLBUTTONDOWN,   HTCAPTION,   0);  
  }