глюки при численном интегрировании (Delphi)

[Bazookин]

Всем доброго времени суток. Мне нужно произвести численное интегрирование. Прогу я написал и, что странно, она работает. Но работает с глюком. Глюк заключается в следующем: после ввода данных и нажатия заветной кнопки "Расчет", прога выдаёт верный результат, но при повторном нажатии (исходные данные неизменны) результат совершенно другой, при третьем - третий, и так N раз (обычно N не превышает 3).
Вот скриншоты:
1) Введены значения, выдан верный результат:



2) Кнопка "Расчет" нажата повторно, выдан неверный результат:



Внимание вопрос: почему так происходит и как с этим бороться?
Сама программа и программный код во вложенном архиве.

P.S. Я - зелёный новичок-самоучка (за delphi взялся 2 недели назад), поэтому сильно не бейте.

[VVM]

Полагаю, после первого расчета некоторые (или все) переменные не обнуляются.

[Bazookин]

Обнуляются перед каждым расчетом. Замечена странная закономерность: чем меньше полей вывода информации тем меньше вероятность ошибки, при многократном использовании функции "znachenie(f,x)" вероятность неправильного ответа существенно возрастает. Скорее всего глючит именно функция "znachenie(f,x)", но найти конкретную ошибку я не могу...
Наверное я забыл упомянуть о том, что результаты изменяются периодически с периодом N.

[VVM]

Bazookин, вы пожалуйста не обижайтесь, но в вашем коде черт ногу сломит.
1. Все переменные должны иметь осмысленные названия, иначе крайне сложно улавливать закономерности между h, g, t, e, f, s, d...
2. Рекомендую придерживаться стандарта стилевого оформления кода (Яndex + Стандарт стилевого оформления исходного кода DELPHI).
Это упростит кодинг и читабельность ваших исходников. Тогда ошибки искать куда проще будет, в том числе и вам самим.

[Bazookин]

Bazookин, вы пожалуйста не обижайтесь

Я не обиделся и обязательно учту высказанные замечания в своих будущих проектах, а пока я написал кометнарии в уже имеющемся коде.
Код имеется во вложенном файле. Надеюсь так будет понятнее и поможет решить вышеописанную проблему.

[Bazookин]

Проблема решена. Решение элементарно: надо было заменить строку f:=' '; на ту же строку забитую пробелами. Тему можно считать закрытой.