拖动窗体

拖动窗体
  ReleaseCapture;
  SendMessage(Handle,WM_SYSCOMMAND,$f012,0); 

示例：
procedure TForm.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle,WM_SYSCOMMAND,$f012,0);
end;