[Дикоша]

-все правильно..но мне надо как то так. но здесь кажется какая та ошибка? message вместе с формой открывается..(

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin
 memo1.Clear;
if (pos('Водка',ListBox2.Items.Text)>0 )
  and  (pos('Пиво',ListBox2.Items.Text)>0 )
then form2.show    ;

if (pos('Водка',ListBox2.Items.Text)>0 )
  and  (pos('Шампанское',ListBox2.Items.Text)>0 )
then   form3.show
else showMessage('Не хватает ингредиентов или нет такого блюда');
  
end;