Мало проверить наличие необходимых элементов, нужно еще и не забыть про исключение ненужных (в примере Коньяк исключается)
Код:
if (pos('Водка',ListBox2.Items.Text)>0 )
and (pos('Пиво',ListBox2.Items.Text)>0 )
and (pos('Коньяк',ListBox2.Items.Text)=0)
then nomerRecepta:=1 ;
if (pos('Водка',ListBox2.Items.Text)>0 )
and (pos('Шампанское',ListBox2.Items.Text)>0 )
and (pos('Коньяк',ListBox2.Items.Text)=0)
then nomerRecepta:=2 ;