Программа на делфи. Нужно заменить повторяющиеся элементы

[GeorgiyS]

Есть программа. Нужно поменять на что-то повторяющиеся элементы в баттон-кликах с 1 по 5. Вот часть кода на примере кнопки 1.

procedure TForm1.Button1Click(Sender: TObject);
begin
  begin
    CheckBox3.Checked := true
  end;
  begin
    if CheckBox3.Checked = true
    then
      begin
        CheckBox12.Checked := false;
        CheckBox13.Checked := true;
        CheckBox4.Checked := false;
      end;
  end;
  begin
    if  (CheckBox13.Checked = true) and (CheckBox14.Checked = true) and (CheckBox15.Checked = true)
    then CheckBox20.Checked := false
    else CheckBox20.Checked := true
  end;
  begin
    if CheckBox20.Checked = true
    then CheckBox21.Checked := false
    else CheckBox21.Checked := true
  end;
  begin
    if CheckBox21.Checked = true
    then Shape1.Brush.Style := bsSolid
    else Shape1.Brush.Style := bsDiagcross
  end;
  begin
    if (CheckBox12.Checked = true) or (CheckBox16.Checked = true) or (CheckBox17.Checked = true) or (CheckBox19.Checked = true)
    then CheckBox22.Checked := true
    else CheckBox22.Checked := false
  end;
  begin
    if CheckBox22.Checked = true
    then Shape2.Brush.Style := bsSolid
    else Shape2.Brush.Style := bsDiagcross
  end;
end;

вот повторяющийся элемент во всех 5 кнопках. Как его можно заменить чтобы упростить блок-схему?

  begin
    if  (CheckBox13.Checked = true) and (CheckBox14.Checked = true) and (CheckBox15.Checked = true)
    then CheckBox20.Checked := false
    else CheckBox20.Checked := true
  end;
  begin
    if CheckBox20.Checked = true
    then CheckBox21.Checked := false
    else CheckBox21.Checked := true
  end;
  begin
    if CheckBox21.Checked = true
    then Shape1.Brush.Style := bsSolid
    else Shape1.Brush.Style := bsDiagcross
  end;
  begin
    if (CheckBox12.Checked = true) or (CheckBox16.Checked = true) or (CheckBox17.Checked = true) or (CheckBox19.Checked = true)
    then CheckBox22.Checked := true
    else CheckBox22.Checked := false
  end;
  begin
    if CheckBox22.Checked = true
    then Shape2.Brush.Style := bsSolid
    else Shape2.Brush.Style := bsDiagcross
  end;

[Serge_Bliznykov]

я Вам так скажу. я честно минут пять пытался понять, что у Вас дано и что нужно получить... но так, к сожалению, и не понял. Как связаны баттоны, чекбоксы и шейпы, что Вы пытаетесь сделать - непонятно..

Может быть сформулируете Ваше задание более конкретно?
Что дано, что нужно получить...

[GeorgiyS]

в общем есть программа, в ней 5 кнопок и 2 лампы. Программа - графический эмулятор схемы на логических элементах. При нажатии кнопки меняются состояния триггеров и лампочки загораются или нет. Логические уровни реализованы с помощью checkbox(true = 1, false = 0), лампы с помощью shape1 и shape2. При нажатии любой кнопки происходит присвоение соответствующей части схемы единицы

begin
CheckBox3.Checked := true
end;

Далее если эта часть схемы равна единице то она меняет некоторые входы и выходы

begin
    if CheckBox3.Checked = true
    then
      begin
        CheckBox12.Checked := false;
        CheckBox13.Checked := true;
        CheckBox4.Checked := false;
      end;
  end;

И так идет до ламп. Но во всех 5 нажатиях кнопки есть часть схемы которая работает одинаково

begin
    if  (CheckBox13.Checked = true) and (CheckBox14.Checked = true) and (CheckBox15.Checked = true)
    then CheckBox20.Checked := false
    else CheckBox20.Checked := true
  end;
  begin
    if CheckBox20.Checked = true
    then CheckBox21.Checked := false
    else CheckBox21.Checked := true
  end;
  begin
    if CheckBox21.Checked = true
    then Shape1.Brush.Style := bsSolid
    else Shape1.Brush.Style := bsDiagcross
  end;
  begin
    if (CheckBox12.Checked = true) or (CheckBox16.Checked = true) or (CheckBox17.Checked = true) or (CheckBox19.Checked = true)
    then CheckBox22.Checked := true
    else CheckBox22.Checked := false
  end;
  begin
    if CheckBox22.Checked = true
    then Shape2.Brush.Style := bsSolid
    else Shape2.Brush.Style := bsDiagcross
  end;

вот её нужно заменить на процедуру(?). Пробывал сам но выдавало ошибки. Получалось процедура вызывает процедуру. Но чет не заработало.
Может еще как нибудь можно реализовать это? Или как правильно написать процедуру в процедуре?
Заменить одинаковые куски кода нужно для упрощения блок-схемы.
Если не понятно с чекбоксами и шэйпами и баттонами, можно не брать это в расчет и подумать как вообще можно заменить одинаковые части кода для упрощения блок-схемы.

[Stilet]

При нажатии кнопки меняются состояния триггеров и лампочки загораются или нет.

Знаешь, по-моему решение такой задачи должно выглядеть в виде дерева.
Например есть один класс - переключатель, содержащий в себе список обьектов, с которым он связан, те обьекты в свою очередь содержат список объектов, которые переключают они.
Уверен что тебе стоит пересмотреть свою реализацию кардинально, построив ее на дереве из динамических списков.

[Mad_Cat]

Может быть сформулируете Ваше задание более конкретно?
Что дано, что нужно получить...

вот оно скорее всего

[GeorgiyS]

переделывать, к сожалению, времени нет(
как вызвать процедуру из процедуры?

procedure TForm1.ololo(Sender: TObject);
begin
  begin
    if  (CheckBox13.Checked = true) and (CheckBox14.Checked = true) and (CheckBox15.Checked = true)
    then CheckBox20.Checked := false
    else CheckBox20.Checked := true
  end;
  begin
    if CheckBox20.Checked = true
    then CheckBox21.Checked := false
    else CheckBox21.Checked := true
  end;
  begin
    if CheckBox21.Checked = true
    then Shape1.Brush.Style := bsSolid
    else Shape1.Brush.Style := bsDiagcross
  end;
  begin
    if (CheckBox12.Checked = true) or (CheckBox16.Checked = true) or (CheckBox17.Checked = true) or (CheckBox19.Checked = true)
    then CheckBox22.Checked := true
    else CheckBox22.Checked := false
  end;
  begin
    if CheckBox22.Checked = true
    then Shape2.Brush.Style := bsSolid
    else Shape2.Brush.Style := bsDiagcross
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  begin
    CheckBox3.Checked := true
  end;
  begin
    if CheckBox3.Checked = true
    then
      begin
        CheckBox12.Checked := false;
        CheckBox13.Checked := true;
        CheckBox4.Checked := false;
      end;
  end;
  begin
    TForm1.ololo(Sender: TObject);
  end;	
end;

на что-то ругается :о

[GeorgiyS]

может тему перенести в раздел "компоненты delphi"?

[GeorgiyS]

up up up up

[GeorgiyS]

никто не знает?