Код:
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; выполнится во всех остальных случаях
Если есть вопросы, на сайте програм.рф есть моя почта. Пиши, отвечу