Delphi Моделирование движения ракеты

[Mashed]

Помогите, пожалуйста.
Есть несложная система из 4х дифуров, которая описывает движение тела, в нашем случае ракеты.
Решаю систему методом Рунге-Кутте 4го порядка. Строю соответственно траекторию полёта на Chart'е. Казалось бы, все хорошо, но...

Топливо должно кончится на момент времени 1700 сек, а ракета продолжает как ни в чём не бывало лететь.
Потом, надо по этой траектории по Image'у запустить саму ракету, но программа посылает меня далеко и надолго.
Вот, собственно, сама программа: http://zalil.ru/30103675


Заранее спасибо.