[snr93]

Добрый день. Не могу понять почему в этом коде

Код:

begin
    if MessageDlg('тут вопрос?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
   b1:=b1+1;
   b2:=b2+1;
   Edit1.Text:=IntToStr(b1);
   Edit2.Text:=IntToStr(b2);

b1 прибавляет к себе единицу только когда отвечаем "да", а b2 прибавляет к себе единицу при любом ответе. Как это исправить?