я как бы далек от паскаля, поэтому хотел бы прояснить, вот пару раз проверка усовия на наличие ошибок ладно, Result будет фальш, а что происходит когда появляется исключение, Result то будет истина, может причина в этом, что правильное завершение функции ведет к тормозам где полученный мусор присваивается какой нибудь переменной