Pascal/Turbo Pascal - logaritmos

Necesito una funcion para logaritmos de base 10 no la de logaritmos naturales o neperianos

Función para logaritmos:

{Logaritmo de cualquier base}
Function LogX(Num :Real; Base :Byte) :Real;
Begin
LogX := Ln(Num)/Ln(Base);
End; {LogX}

{Logaritmo en base 10}
Function Log10(Num :Real) :Real;
Begin
Log10 := LogX(Num, 10);
End; {Log}

Espero te sea de utilidad. Saludos ;-)