Перетаскивание формы с bsNone

Procedure TfrmMain.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
    ReleaseCapture;
    FrmMain.Perform(WM_SysCommand, $F012, 0);
End;