請問在delphi中怎樣遍歷窗體上的控件？

Question

vb 
  dim ctl as control  
  for  each ctl in controls
       '------
  next
delphi?

Answer 1

for i:=0 to controlCount-1 do
begin
  controls[i]...
end;

Answer 2

for i:=0 to self.ComponentCount -1 do
  combobox1.Items.Add(self.Components[i].Name )

Answer 3

var
  i:integer;
  for i:=0 to self.componentcount-1 do
    showmessage(self.components[i].name);

Answer 4

for i:=0 to ControlCount-1 do
   begin
     ShowMessage(Controls[i].ClassName);
   end;