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

var
  i: Integer;

begin
  for i := 0 to SpinEdit1.Value do
    ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

//declaration
.....
TheEditArray : array [1..10] of TEdit;
.....

//implementation
procedure TForm1.SpinEdit1Change(Sender: TObject);
var i,j : Integer;
begin
  j := 0;
  for i := 0 to ControlCount -1 do  //erst mal schaun, ob es schon das eine oder andere Edit gibt !
  if Controls[i] is TEdit then
    if pos('Edit',(Controls[i] as TEdit).name) <> 0 then inc(j);

  if j < SpinEdit1.Value then // dann Neue anlegen
  begin
    for i := (j +1) to SpinEdit1.Value  do
    begin
      TheEditArray[i] := TEdit.Create(self);
      TheEditArray[i].Left := i *60;
      TheEditArray[i].top := 10;
      TheEditArray[i].Parent := Form1;
      TheEditArray[i].name := 'Edit' + Inttostr(i);
    end;
  end else // dann Überflüssige löschen
    for i := SpinEdit1.Value +1 to j do TheEditArray[i].Free;
end;