Здравствуйте, Ranger_XL, Вы писали:

R_X>Не, мне надо построчно. Надо соптимизировать рекурсивную функцию. То, что в ней тратится 90% времени исполнения, я и сам знаю

Что-то я не видел профайлеров для Delphi, которые построчно оценивали время исполнения.
Правила оптимизации кода очень просты. Почитай хотя бы Написание оптимального кода под Delphi
Если владеешь немецким , то Tips about optimization.
А лучше кидай сюда свою функцию