[Rokuell]

Обычно использую эту:

Код:

function Pow(base,exponent:Extended):Extended;
asm
 fld tbyte ptr [exponent]
 fld tbyte ptr [base]
 fyl2x
 fld ST(0)
 frndint
 fxch
 fsub ST(0),ST(1)
 f2xm1
 fld1
 faddp
 fscale
 fstp ST(1)
end;