Delphi Процедурные типы

[JustSay]

Разработать программу вычисления таблицы значений интеграла (приложение 2) с заданной точностью Е для t, что меняется на интервале [t(1),t(2)] с шагом h(t). Для вычисления значения интеграла использовать формулу Симпсона (приложение 1). В программе использовать подпрограмму вычисления интеграла по указанной формуле, в которую передать подынтегральной функции в качестве параметра. Результаты вычислений напечатать в виде таблицы, в каждой строке которой разместить значение t и соответствующее ему значение интеграла.

попробовал что-то написать по данной задаче. но оно не работает. Где накосячил догадываюсь, но как исправить не знаю. Помогите пожалуйста.

[Stilet]

Где накосячил догадываюсь

Ну и где же?
Я так понимаю отладчиком работать еще не научился?

P.S. Я бы наверное не делал передаваемую функцию методом формы. Лучше бы описал ее как простую функцию в данном случае. Или тогда уж нужно писать

func=function(x:real; t:integer):real;of object;

Если не ошибаюсь.

[JustSay]

Вот я и догадывался что с

func=function(x:real; t:integer):real;

накосячил. Теперь по крайней мере запускается. С мелкими ошибками сам разберусь. Так что спасибо.