[champy]

Se me ocurre uno aún más corto.

Código Delphi [-]
Function ObtenerNumero(Numero: Integer; Posicion: Integer): Integer;
begin
  Result := StrToInt(Copy(IntToStr(Numero), Posicion, 1));
end;