急！在线等待！如何获得窗体内控件的名称

Question

一个窗体上放几个按钮和其他一些控件，怎么能获得这些控件的名称。只能得到一类的名称也可以如按钮的。在线等待！

Answer 1

for i:=0 to form1.ComponentCount-1 do
  begin
    listbox1.Items.Add(form1.components[i].name);
  end;

Answer 2

for i:=0 to form1.ComponentCount-1 do
  begin
    listbox1.Items.Add(form1.components[i].name);
  end;

Answer 3

for i:=0 to form1.ComponentCount-1 do
  begin
    if form1.components[i] is TButton then 
      (form1.components[i] as TButton).caption:='按钮';
    if form1.components[i] is TLabel then 
      (form1.components[i] as TLabel ).caption:='标签';    
    ...
  end;