1nd1g0, и на 5-ю и 13-ю строку кода function Double2StrEx( D: Double ): String; обратите внимание.
(с)"Ходит песенка по кругу"