//WINAPI释放鼠标
ReleaseCapture;
//发送系统消息，通知窗口标题栏被按下，之后就可以拖了
SendMessage(Handle,WM_SYSCOMMAND,$F012,0);

===================================

举例：

  1. TForm上放一个TImage;

  2. 将上述代码填入 TImage的 MouseDown事件中; 

  3. 此时鼠标点击图片后，已经可以移动窗体了