我的控件mousedown事件(0分)

我自己编个控件 插入mousedown事件 结果显示我按的是第几个控件
这个事件怎么写(Delphi)

比如我的控件是个方块 我mousedown一下 就能显示第几个方块.

我的界面上放了很多相同的方块控件 关键是我mousedown一下 就能显示我按的是第几个方块控件(之前已经序列化了方块控件)

这个mousedown怎么写呢
请高手指点

procedure OnMouseDown(Sender:TObject);
begin
Showmessage（(Sender as TyourControl).序号）；
end;