Пример решения задачи

Рис. 3

Результаты работы программы выведены в соответствующие окна.

Число 10 – это контроль количества повторений цикла:

Label5.Caption :=Inttostr(i);

Кнопка для вычисления сумм становится не активной, чтобы не считать суммы для обработанного числа.

При вводе нового числа кнопка станет активной:

Summa.Enabled :=true;