delphi鼠标移动

各位大侠：
   我想实现这样的功能：
   有教室，两个教室中有不同的人小图标，一个小图标表示不同的人，这时我要将学生有这个教室，移到另外一个教室
我鼠标拖动，一个教室到另外一个教室，鼠标上是一张图 在移动
谢谢