А вот это
Код:
if (Edit1.Text = 'Лиття під тиском') or (Edit1.Text = 'Віброабразивна')
or (Edit1.Text = 'Слюсарна') or (Edit1.Text = 'Фрезерна')
or (Edit1.Text = 'Свердлильна') or (Edit1.Text = 'Хімічне окислення')
or (Edit1.Text = 'Маркування') or (Edit1.Text = 'Контроль')
и вот это
Код:
if (Edit2.Text = 'Виконати лиття') or (Edit2.Text = 'Виконати обробку заготовок')
or (Edit2.Text = 'Встановити, закріпити, зняти') or (Edit2.Text = 'Запилити і розчистити місце роз’єму')
or (Edit2.Text = 'Фрезерувати пов.21, 22') or (Edit2.Text = 'Зняти задирки')
or (Edit2.Text = 'Фрезерувати пов.6, 3,16 Попередньо ') or (Edit2.Text = 'Фрезерувати пов.2, 3, 4, 10, 11, 19 начисто')
or (Edit2.Text = 'Фрезерувати пов.23') or (Edit2.Text = 'Свердлити отв. 12 під різьбу М3-6Н')
or (Edit2.Text = 'Свердлити отв.5, 8 під різьбу М2-6Н') or (Edit2.Text = 'Перевстановити')
or (Edit2.Text = 'Свердлити отв.20') or (Edit2.Text = 'Свердлити отв.9 під різьбу М2-6Н')
or (Edit2.Text = 'Розточити отв.7') or (Edit2.Text = 'Розточити отв.6')
or (Edit2.Text = 'Розточити отв.16') or (Edit2.Text = 'Нарізати різьбу М2-6Н в 2 отв. Поз.9 ')
or (Edit2.Text = 'Нарізати різьбу М2-6Н в 4 отв. Поз.5') or (Edit2.Text = 'Нарізати різьбу М2-6Н в 3 отв. Поз.8')
or (Edit2.Text = 'Змінити інструмент') or (Edit2.Text = 'Нарізати різьбу М3-6Н в 1 отв. Поз.12')
or (Edit2.Text = 'Нанести хімічне покриття') or (Edit2.Text = 'Маркувати умовний порядковий номер')
or (Edit2.Text = 'Контролювати паралельність поверхонь')
не лучше сделать в ComboBox'e для того, чтобы просто выбироать из списка готовых значений. Так можно избавиться от опечаток пользователя и независить от регистра.
Далее...
Как это по Вашему должно сработать?
Код:
for i:=0 to ListBox1.Count-1 do
if (Form2.ListBox1.Items[i] = 'Лиття під тиском') and
(Form2.ListBox1.Items[i] = 'Виконати лиття') then
ListBox это ведь список строк, а Вы хотите чтобы она, строка из списка, равнялась и "Лиття під тиском" и "Виконати лиття" одновременно. Это как?