1:
2:
3:
4:
5:
6:

  
        //...// 
        for i:=1 to 132 do
          Ini.WriteString('Config','Edit'+IntToStr(i),
                          TEdit(Form4.FindComponent('Edit'+inttoStr(i))).Text);
        //...//					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function Form1.EditCount: Integer;
var i: Integer;
begin
  result := 0;
  for i := 0 to ComponentCount-1 do
  begin
    if (Form1.Components[i] is TEdit) then
      Inc(result);
  end;
end;					

1:
2:
3:

for i := 0 to Form1.Components.Count - 1 do   
   if Form1.Components[i] is TEdit then   
      dosomething;