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

Filtrado por el usuario: xve
Filtrado por el usuario 'xve' (Eliminar fitro)
 
Vista: