componentcount formdaki componentlerin sayısını verir components[n] ile de bu componentlere erişebilirsin..
Ben aşağıya edit4 ten edit10 a kadar editlerin icindeki sayıları toplayan bişey yazdım. noktalı sayılar varsa strtoint yerine strtofloat kullanabilirsin.

1.yol
Kod:
procedure TForm1.Button1Click(Sender: TObject); Var i,j,Top : Integer; s : String; begin Top:=0; for i:=0 to ComponentCount-1 do Begin if Components[i] is TEdit Then Begin s:=Components[i].Name; j:=StrToIntDef(Copy(S,5,Length(s)),0); if (Copy(s,1,4)='Edit') And (j>=4) and (j