var EditArray : Array [1..20] of TEdit; procedure TForm1.FrmCreate(Sender: TObject); var n : integer; begin for n := Low(EditArray) to High(EditArray) do begin EditArray[n] := TEdit.Create(self); with EditArray[n] do begin parent := self width := 121; left := 16; top := 60 + n*24; text := ''; // agregar aquí otras propiedades si necesario end; end; end;