1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 1;
  for y := 1 to 10 do
  begin
    TE[x]:= TEdit.create(Form1);
    TE[x].parent := Form1;
    TE[x].Font.Name := 'Lucida Console';
    TE[x].Font.Size := 9;
    TE[x].Font.Style := [fsBold];
    TE[x].Top := i*20;
    TE[x].Left := 335;
    TE[x].Width := 25;
    inc(i);
  end;
end;					

1:

Ein Steuerelement kann nicht selbst als Vorfahr haben !					

1:

TE[x].parent := Form1;					

1:

TE[x].Top := y*20;					

1:
2:

var TE : array [1..10] of TEdit;
    x,i,y  : integer;