[GDSprogramer]

Код:

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


   Edit1.Text:=IntToStr(b1);
   Edit2.Text:=IntToStr(b2);

MAD: Оформляем код, или последуют санкции.

Так должно работать

Примечание:
b1:=b1+1 выполнится если ответ на вопрос "да"
b2:=b2+1; выполнится во всех остальных случаях


Если есть вопросы, на сайте програм.рф есть моя почта. Пиши, отвечу