如何返回控件数组序号? ( 积分: 100 )

如 a:array [0..8] of timage，在a中设定了9个image。
procedure tform1.aMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
//如何知道是a中第？个image触发了这个事件？
//用ord（timage(sender)）不可以
//也不想用for遍历找出
end

已经搞定,用tag