[marcoszorrilla]

Por cierto en la unidad Math, también existen estás funciones:

Código Delphi [-]
 { Logorithmic functions }
 function LnXP1(X: Extended): Extended;   { Ln(X + 1), accurate for X near zero }
 function Log10(X: Extended): Extended;                     { Log base 10 of X}
 function Log2(X: Extended): Extended;                      { Log base 2 of X }
 function LogN(Base, X: Extended): Extended;                { Log base N of X }

Un Saludo.