Delphi - Criando um Array de Tedits

Coloque em seu formulário dois botões(um para criar e outro para Destruir os Tedits) e um panel.

//Criando os Tedits

procedure TForm1.BitBtn1Click(Sender: TObject);

var MeuEdit : Array[1..10] of TEdit;

      i, j: integer;

Begin

 J:=40;

for i:=1 to 10 do begin

 MeuLabel[i] := Tlabel.Create(Self);

 MeuLabel[i].Parent := panel1;

 MeuLabel[i].Top := 50 + j;

 MeuLabel[i].Left := 50;

 Meulabel[i].Caption := 'teste '+Inttostr(i);

 J:= J+ 20;

end; 

Os Tedits serão criados dentro do Tpanel.

//Destruindo os Tedits

procedure TForm1.BitBtn2Click(Sender: TObject);

var i: integer;

Begin

for i := ComponentCount - 1 downto 0 do

 begin

  if (Components[i] is TEdit)then

    begin

     (Components[i] as TEdit).Free;

    end;

 end;

end;