遍历窗体上的组件

1）清楚所有窗体内的输入框
 For i:=0 to ComponentCount - 1 do
   if Components[i] is TEdit then
     TEdit(Components[i]).Text := '';
  以此类推，可以用于Label,Button等等，那些需要统一更改的属性等内容。 


2)遍历一个窗口的所有组件以显示它们的类名称 
procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
 for i:= 0 to ComponentCount - 1 do
   ShowMessage(Components[i].ClassName);
end;