[Myrik]

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

вот сам код:

Код:

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;