[ecfisa]

Hola de nuevo Luis.

Me quedé pensando que tal vez malinterpreté ( el 4 con los cuatro dígitos del ejemplo ) y te referías a obtener la unidad de una cifra.

Si fué así, simplemente:

Código Delphi [-]
  Unidad:= Numero mod 10;

Saludos

Edito: No había visto tu último mensaje pero ya me parecía que había entedido mal...