Then begin

Label2.Caption:=Edit1.Text + ', ты купил

книгу по Delphi?';

End;

7. Выделить кнопку Button1, изменить ее заголовок на «Yes». Найти в Object Inspector событие OnClick и, нажав дважды мышь, вставить следующий код:

Label3.Caption:='Молодец’;

Рис. 7.2. Внешний вид доработанного приложения

8. Аналогично изменить заголовок кнопки Button2 на «No» и в процедуру кнопки No вставить: Label3.Caption:=‘Почему же? Надо приобрести эту книгу.’ Убрать заголовки меток Label2 и Label3.

9. Сохранить проект, запустить и протестировать его .
Поставленная задача выполнена. Программа, разработанная вами, работает.