Текста программы не вижу, так что буду предполагать и импровизировать
Допустим программа подобна тестированию в ГАИ (вводишь правильную цифру нажимаешь Enter). Тогда код примерно следующий:
Код:
// i - счётчик правильных ответов
// n - кол-во вопросов
i := 0;
далее идут вопросы, каждый вопрос примерно следующего вида
// правильный ответ 1, допустим
if Edit1.Text= '1' then
i := i + 0.5;
//вопросы закончились далее пишем
ShowMessage('Оценка' + FloatToStr(10*i/n));