Сейчас не могу проверить твой вариант.
Там в FPC есть стандартные функции в Math: FPC2srcobjpasmath.pp
Ещё, если кто разбирается, можно эти функции переписать на иснтрукциях SSE вместо MMX.