[Alegun]

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

Код:

1 2 3 4 5 6 7 8 9

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;