Показать или спрятать объект на форме

[flouwjke]

Есть 20 Edit-ов на форме и еще 1 для ввода выбора количества точек(каждая точка имеет 4 параметра макс 5 точек, потому 20 эдитов ) я хз как сделать это через CommondBox поэтому решил просто через ввод числа от 2 до 5, но столкнулся с проблумой) Изначально я оставил на форме тока 4 эдита остальные спрятал, расписал кнопку ) но поче му то при вводе "2" он показывает сразу все 20 эдитов

procedure TForm1.Button3Click(Sender: TObject);
var
 z:integer;
begin
  z:=Strtoint(Edit1.Text);
if z<2 then ShowMessage('Допустимое значение от 2 до 5');
if z>5 then ShowMessage('Допустимое значение от 2 до 5');
if z=2 then
  abt2.Visible := true;
  bbt2.Visible := true;
  cbt2.Visible := true;
  ebt2.Visible := true;
  abt3.Visible := False;
  bbt3.Visible := False;
  cbt3.Visible := False;
  ebt3.Visible := False;
  abt4.Visible := False;
  bbt4.Visible := False;
  cbt4.Visible := False;
  ebt4.Visible := False;
  abt5.Visible := False;
  bbt5.Visible := False;
  cbt5.Visible := False;
  ebt5.Visible := False;
if z=3 then
  abt2.Visible := true;
  bbt2.Visible := true;
  cbt2.Visible := true;
  ebt2.Visible := true;
  abt3.Visible := true;
  bbt3.Visible := true;
  cbt3.Visible := true;
  ebt3.Visible := true;
  abt4.Visible := False;
  bbt4.Visible := False;
  cbt4.Visible := False;
  ebt4.Visible := False;
  abt5.Visible := False;
  bbt5.Visible := False;
  cbt5.Visible := False;
  ebt5.Visible := False;
if z=4 then
  abt2.Visible := true;
  bbt2.Visible := true;
  cbt2.Visible := true;
  ebt2.Visible := true;
  abt3.Visible := true;
  bbt3.Visible := true;
  cbt3.Visible := true;
  ebt3.Visible := true;
  abt4.Visible := true;
  bbt4.Visible := true;
  cbt4.Visible := true;
  ebt4.Visible := true;
  abt5.Visible := False;
  bbt5.Visible := False;
  cbt5.Visible := False;
  ebt5.Visible := False;
if z=5 then
  abt2.Visible := true;
  bbt2.Visible := true;
  cbt2.Visible := true;
  ebt2.Visible := true;
  abt3.Visible := true;
  bbt3.Visible := true;
  cbt3.Visible := true;
  ebt3.Visible := true;
  abt4.Visible := true;
  bbt4.Visible := true;
  cbt4.Visible := true;
  ebt4.Visible := true;
  abt5.Visible := true;
  bbt5.Visible := true;
  cbt5.Visible := true;
  ebt5.Visible := true;
end;

[Shouldercannon]

Исправленный вариант с участием ComboBox

[flouwjke]

Огромное пасиба

[Вадим Мошев]

flouwjke
Ваша проблема заключается в том, что вы не группируете свой код в составной оператор (begin-end). Поэтому при истинности/не_истинности любого из логических выражений, которые вы используете в условных операторах, выполняется лишь только один оператор. Все последующие операторы (до следующего условного оператора, а также после него) выполняются в любом случае.
Таким образом, если у вас z = 2, то у вас программа исполняется так (показываю пример на вашем коде, жирным цветом я выделил то, что у вас выполняется):

procedure TForm1.Button3Click(Sender: TObject);
var
 z:integer;
begin
  z:=Strtoint(Edit1.Text);
if z<2 then ShowMessage('Допустимое значение от 2 до 5');
if z>5 then ShowMessage('Допустимое значение от 2 до 5');
if z=2 then // предположим, что это условие выполняется
  abt2.Visible := true;
  bbt2.Visible := true;
  cbt2.Visible := true;
  ebt2.Visible := true;
  abt3.Visible := False;
  bbt3.Visible := False;
  cbt3.Visible := False;
  ebt3.Visible := False;
  abt4.Visible := False;
  bbt4.Visible := False;
  cbt4.Visible := False;
  ebt4.Visible := False;
  abt5.Visible := False;
  bbt5.Visible := False;
  cbt5.Visible := False;
  ebt5.Visible := False;
if z=3 then
  abt2.Visible := true;
  bbt2.Visible := true;
  cbt2.Visible := true;
  ebt2.Visible := true;
  abt3.Visible := true;
  bbt3.Visible := true;
  cbt3.Visible := true;
  ebt3.Visible := true;
  abt4.Visible := False;
  bbt4.Visible := False;
  cbt4.Visible := False;
  ebt4.Visible := False;
  abt5.Visible := False;
  bbt5.Visible := False;
  cbt5.Visible := False;
  ebt5.Visible := False;
if z=4 then
  abt2.Visible := true;
  bbt2.Visible := true;
  cbt2.Visible := true;
  ebt2.Visible := true;
  abt3.Visible := true;
  bbt3.Visible := true;
  cbt3.Visible := true;
  ebt3.Visible := true;
  abt4.Visible := true;
  bbt4.Visible := true;
  cbt4.Visible := true;
  ebt4.Visible := true;
  abt5.Visible := False;
  bbt5.Visible := False;
  cbt5.Visible := False;
  ebt5.Visible := False;
if z=5 then
  abt2.Visible := true;
  bbt2.Visible := true;
  cbt2.Visible := true;
  ebt2.Visible := true;
  abt3.Visible := true;
  bbt3.Visible := true;
  cbt3.Visible := true;
  ebt3.Visible := true;
  abt4.Visible := true;
  bbt4.Visible := true;
  cbt4.Visible := true;
  ebt4.Visible := true;
  abt5.Visible := true;
  bbt5.Visible := true;
  cbt5.Visible := true;
  ebt5.Visible := true;
end;