単純に
function Fsin(A : extended) : extended;
asm
　fld [A] ;
　FSIN ;
end ;
これは我慢出来ないの？