[Myrik]

суть проблемы: выбираю в ComboBox1 первую строчку, открывается ComboBox7, там тоже выбираю первую строчку, в Memo выводится отчёт: "1) ляляля". затем выбираю в ComboBox1 вторую строчку, открывается ComboBox6, там выбираю первую строчку, в Memo выводится уже вот такой отчёт: "2) ляляля 2) ляляля". если продолжаю переключать комбобоксы, то отчёт в Мемо утраивается, учетверяется и т.д.. В чём ошибка в коде программы?

вот сам код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

procedure TForm2.ComboBox1Change(Sender: TObject); begin  if form2.ComboBox1.ItemIndex=0 then  begin  form2.Button1.Visible:=true;  form2.ComboBox6.Visible:=false;  form2.ComboBox7.Visible:=true;    end;  if form2.ComboBox1.ItemIndex=1 then  begin  form2.Button1.Visible:=true;  form2.ComboBox6.Visible:=true;  form2.ComboBox7.Visible:=false;  end; end;   procedure TForm2.Button1Click(Sender: TObject); begin  ch:=ch+1;  if form2.ComboBox6.ItemIndex=0 then  begin  spec:=form2.ComboBox6.Items[0];  form2.Memo1.Lines.Add(inttostr(ch)+')'+spec);  end;  if form2.ComboBox7.ItemIndex=0 then  begin  spec:=form2.ComboBox7.Items[0];  form2.Memo1.Lines.Add(inttostr(ch)+')'+spec);  end; end;