Пока сделал так:
function _Cos(A: PDouble): Double;
asm
 .NOFRAME

 fld qword ptr [A]
 fcos
 fstp qword ptr [Result]
end;

function _Sin(A: PDouble): Double;
asm
 .NOFRAME

 fld qword ptr [A]
 fsin
 fstp qword ptr [Result]
end;
Работает, но нужно обрабатывать исключения. Часто выдает -1,#IND.
Есть у кого опыт с обработкой исключений?

Написал. Если кому интересно, то вот готовые функции:
https://habr.com/ru/post/429786/

Спасибо, интересно!
Только надо было музычку забахать, чё в тишине-то всё))) https://www.youtube.com/watch?v=DT61L8hbbJ4
А шарик всем шарикам шарик! Как такой называется кстати?

И всё же вы пробовали делать через таблицу уже посчитанных значений?

>И всё же вы пробовали делать через таблицу уже посчитанных значений?
Вы не поверите, но у меня все работает через таблицы (практически Брадиса), а значения вычисляются своей функцией.

Fat Rat - это тонкий намек? Если да, то я ничего не украл. Сам все пишу.
Музычка так себе. Мне эта больше нравится: https://www.youtube.com/watch?v=aah-CxW54pw&index=10&list=PL4E2wb3zTeuWShm9Jro6XbDfxc_758CYZ&t=0s