помогите упростить код программы на delphi 7

Question

Программа которая служит для создания теста. 
Фрагмент программы который нужно изменить: 
 
Case strtoint(AnswerCount.text) of 
3: begin 
Answer1.Enabled:=true; 
Answer2.Enabled:=true; 
Answer3.Enabled:=true; 
Answ1.Enabled:=true; 
Answ2.Enabled:=true; 
Answ3.Enabled:=true; 
 end; 
 
4: begin 
Answer1.Enabled:=true; 
Answer2.Enabled:=true; 
Answer3.Enabled:=true; 
Answer4.Enabled:=true; 
Answ1.Enabled:=true; 
Answ2.Enabled:=true; 
Answ3.Enabled:=true; 
Answ4.Enabled:=true; 
 end; 
5: begin 
Answer1.Enabled:=true; 
Answer2.Enabled:=true; 
Answer3.Enabled:=true; 
Answer4.Enabled:=true; 
Answer5.Enabled:=true; 
Answ1.Enabled:=true; 
Answ2.Enabled:=true; 
Answ3.Enabled:=true; 
Answ4.Enabled:=true; 
Answ5.Enabled:=true; 
end; 
end; 
 
Этот фрагмент выполняет разблокирование полей для ввода вариантов ответа. Количество разблокированных полей зависит от числа введеное в поле AnswerCount. 
 
тут answercount - это количество вопрос введенное пользователем 
answer1 .. answer5 - поле edit куда пишется вариант ответа их 5 
Answ1 .. Answ5 - checkbox которым отмечается правильный вариант ответа или нет. 
 
Заранее спасибо!!!

Сергей Кузьмин · Accepted Answer

Собери все поля в массивы: 
AnswerEdit:array[1..5] of TEdit; 
AnswerCheckBox:array[1..5] of TCheckBox; 
... 
AnswerEdit[1]:=Answer1; 
... 
AnswerEdit[5]:=Answer5; 
AnserCheckBox[1]:=Answ1; 
... 
AnserCheckBox[5]:=Answ5; 
А потом 
 
for i:=1 to strtoint(AnswerCount.text) do begin 
AnswerEdit[ i].Enabled:=true; 
AnswerCheckBox[ i].Enabled:=true; 
end;

а вообще тут правильнее эти поля динамически создавать...

Ольга · Answer

А с чего ты взял, что тебе число введут?

Макс Литюшкин · Answer

Не шибко разбираюсь в Delphi, но не проще в начале по умолчанию сделать все 10 полей True, а после выбора количества вариантов ответа просто присвоить незадействованным вариантам признак False? Ведь так по-любому код будет компактней.