По этому коду программа сама закрываться не должна, поэтому скорее всего в самом проекте (Project.dpr) не происходит нормальная загрузка программа. Нажми Project - ViewSources, и скопируй тот код сюда на форум.
ЗЫ или же попробуй создать новый проект, все перепиши и все должно нормально работать...
ЗЫЫ Замени все свои IF'ы на Case, будет намного лучше. Пример:
Код:
...
Case g of
0: edt1.text:='Ваша оценка 2!'; //вывод текста в результат
1: edt1.text:='Ваша оценка 2!';
2: edt1.text:='Ваша оценка 2!';
3: edt1.text:='Ваша оценка 2!';
...
end;