[Alegun]

Чисто методом тыка, всё же просёк алгоритм c ляляля :-0 даже ошибку смоделировал похожую на оригинал - просто в клике кнопки два раза выполнялось условие, вот переработка, проверьте

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 inc(ch);
 if ComboBox6.ItemIndex = 0 then
   Memo1.Lines.Add(IntToStr(ch) + ')' + ComboBox6.Text)
    else
       if ComboBox7.ItemIndex = 0 then
         Memo1.Lines.Add(IntToStr(ch) + ')' + ComboBox7.Text);
end;