如何知道控件是Form中的第几个控件

Question

例如：image1   第一个放，那就是 Components[0]
      button1  第二个放，那就是 Components[1]但是有时候控件放得多了，如果查看某一个控件是第几个，谢谢

Answer 1

if  (components[i] is Tbutton) then show ((Components[i] as Tbutton).name +inttostr(i)) 

Answer 2

自己弄到答案了，
image1.ComponentIndex;

Answer 3

我自己完整是这样写的：cp := (Sender as TImage).ComponentIndex; 
showmessage('当前IMAGE控件是第：'+cp+'个控件');

Answer 4

写太快  cp忘记inttostr了