[Delphi] Помогите справиться с задачей по числякам (метод Рунге-Кутта)

[Unlit]

Условие задачи: разработать и реализовать на персональном компьютере процедуру решения дифференциального уравнения y'(x)=F(x, y(x)) с начальным условием y(x0)=y0, в котором используется метод Рунге-Кутта 4-го порядка.

Формула Рунге-Кутта: y1=y0+1/6*(k1+2K2+2K3+k4);

Способ оценки локальной погрешности: правило Рунге.
В задаче не должно быть массивов.

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

Помогите, кто чем может!!! Завтра сдавать, но ничего придумать не могу

Исходник задачи во вложении