[Alegun]

Всё, впал в ступор, поскольку оптимизация дошла до совпадающих условий

Код:

 if (CheckListBox5.checked[0]) or (CheckListBox5.checked[1]) or (CheckListBox5.checked[2]) or
    (CheckListBox2.checked[0]) or (CheckListBox2.checked[1]) or (CheckListBox2.checked[2]) then
  begin
   if CheckListBox1.checked[0] then
    begin
     if
{1 1} CheckListBox1.checked[1] or
{3 0} CheckListBox3.checked[0] then Form2.Memo1.Lines.Add('Осциллографы');

     if
{1 1} CheckListBox1.checked[1] or
{1 2} CheckListBox1.checked[2] or
{1 3} CheckListBox1.checked[3] or
{3 1} CheckListBox3.checked[1] or
{3 3} CheckListBox3.checked[3] then Form2.Memo1.Lines.Add('Селективные нановольтметры');

     if
{1 1} CheckListBox1.checked[1] or
{3 0} CheckListBox3.checked[0] then Form2.Memo1.Lines.Add('Измерительные антенны');

     if
{1 1} CheckListBox1.checked[1] or
{3 0} CheckListBox3.checked[0] then Form2.Memo1.Lines.Add('Измерительные пробники');

     if
{3 0} CheckListBox3.checked[0] or
{3 1} CheckListBox3.checked[1] or
{3 2} CheckListBox3.checked[2] then Form2.Memo1.Lines.Add('Селективные микровольтметры, измерительные приемники (анализаторы спектра)');
    end;

 if (CheckListBox3.checked[1]) or (CheckListBox3.checked[2]) then
  begin
   if
{1 2} CheckListBox1.checked[2] or
{1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Генераторы шумовых сигналов');

   if
{1 2} CheckListBox1.checked[2] or
{1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Низкочастотные генераторы сигналов');

   if
{1 2} CheckListBox1.checked[2] or
{1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Усилители мощности');

   if
{1 2} CheckListBox1.checked[2] or
{1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Акустические излучатели');

   if
{1 2} CheckListBox1.checked[2] then Form2.Memo1.Lines.Add('Измерительные микрофоны');

   if
{1 2} CheckListBox1.checked[2] or
{1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Измерители шума и вибраций (шумомеры)');

   if
{1 2} CheckListBox1.checked[2] or
{1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Полосовые октавные фильтры со среднегеометри- ческими частотами 250, 500, 1000, 2000, 4000 Гц');
  end;
 end;

 if
{1 2} CheckListBox1.checked[2] or
{1 3} CheckListBox1.checked[3] or
{2 0} CheckListBox2.checked[0] or
{2 1} CheckListBox2.checked[1] or
{2 2} CheckListBox2.checked[2] or
{3 1} CheckListBox3.checked[1] or
{3 2} CheckListBox3.checked[2] then Form2.Memo1.Lines.Add('Вибродатчики (акселерометры)');

 if Checklistbox6.Checked[0] or
    CheckListBox3.checked[0] or
    CheckListBox4.checked[0] then Form2.Memo1.Lines.Add('Программные средства формирования и контроля полномочий доступа в AC');

 if CheckListBox2.checked[3] or
    CheckListBox2.checked[4] or
    CheckListBox2.checked[5] or
    CheckListBox3.checked[0] or
    CheckListBox4.checked[0] then Form2.Memo1.Lines.Add('Программные средства контроля целостности программ и программных комплексов');
end;

смотрите сами