help,help,我是菜鸟(100分)

能帮小弟解释一下以下代码吗,小弟不胜感激!
procedure TForm1.Panel1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
const
SC_DragMove = $F012;
{ a magic number }
begin
ReleaseCapture;
panel1.perform(WM_SysCommand, SC_DragMove, 0);
end;

当鼠标左键在Panel1上按下时，向Windows发送一个鼠标拖拽的系统消息

接受答案了.

这个事件可以使你在运行期拖动你的控件，你的程序里是panel。第一句是取消扑获按下事件，
后一句是发一个拖动的消息！