Delphi - ¿como eliminar el primer y ultimo dgito de una cantidad en una funcion?

hola todos
soy en nuevo en esto y bueno queria saber como eliminar digitos de una cantidad ,en este caso el primer y ultimo digito y mostrar la cantidad
sin esos digitos en un edit text
gracias.....

texto := inttostr(numero);
texto := AnsiMidStr(texto, 2, length(texto) -1);
Donde texto es una variable String y numero es Integer