Delphi - logaritmo en base 10

¿Hay alguna función que me devuelva el logaritmo en base 10 de un número?
Todo lo que he visto es en logaritmos naturales.
Gracias por la ayuda.

function Log10(const X: Extended): Extended;

De la Unit Math (Delphi 6)

Saludos.