Работа с компонентами как с массивом

[nattaella]

У меня есть 10 компонентов LabeledEdit и 1 Edit. В поле Edit пользователь вводит число от 1 до 10 и в зависимости от этого столько же первых компонентов LabeledEdit должно остаться видимыми, а остальные - невидимыми. Например, пользователь ввёл "3". Тогда

procedure TForm1.Button18Click(Sender: TObject);
LabeledEdit1.Visible:=true;
LabeledEdit2.Visible:=true;
LabeledEdit3.Visible:=true;
LabeledEdit4.Visible:=false;
LabeledEdit5.Visible:=false;
................................
LabeledEdit10.Visible:=false;
Было бы хорошо это организовать как-то в виде массива, потому что писать 100 строк кода как-то нерационально. Есть ли более простой способ это организовать?

может что-то типа этого:
var LabEd:array[1..10] of .......
for i:=1 to 10 do
LabEd:=TLabeledEdit.Create(Self);

 

[Dock1100]

может что-то типа этого:
var LabEd:array[1..10] of .......
for i:=1 to 10 do
LabEd:=TLabeledEdit.Create(Self);

именно так, в FormCreate пишеш

for i:=1 to 10 do
begin
LabEd:=TLabeledEdit.Create(Self);
labed.parrent:=form1;//важно, иначе не будет видно компонент
...
//и далее задаёте свойства
end;