[Instance declaration]
  CONSTANT uint WM_NCLBUTTONDOWN = 161
  CONSTANT uint HTCAPTION = 2

  [mousedown event]
  Post(Handle(this),WM_NCLBUTTONDOWN,HTCAPTION,Long(xpos,ypos))