На форум не влез, меньше 300 кб не сделать было. Залил на Депозит:
http://depositfiles.com/files/32huqhhdj
Тут чуть другая модификация, но проблема такая же.
Запустить MKE.dpr
Unit1. Строчки 1143, 1144 с параметром. на 1146 Остановку сделать, чтобы проследить.
Пользоваться:
1) геометрия - Ок
2) Расчет - проверка исходных данных