Перевод чисел из одной системы счисления в другую

{Представление числа aNum в системе счисления с основанием aBase и с точностью
aPrec знаков после запятой.}
function NumToStr(const aNum : Extended; const aBase, aPrec : Byte) : String;
var
  NInt : Int64;
  NFrac : Extended;
  i : Integer;
  Res : String;
begin
  {Значение целой части числа.}
  NInt := Trunc(Abs(aNum));
  {Представление целой части числа.}
  Res := '';
  repeat
    Res := D[NInt mod aBase + 1] + Res;
    NInt := NInt div aBase;
  until NInt = 0;
 
  {Значение дробной части числа.}
  NFrac := Frac(Abs(aNum));
  {Добавляем разделитель целой и дробной части.}
  if (NFrac <> 0) and (aPrec > 0) then
    Res := Res + DecimalSeparator;
  {Представление дробной части.}
  i := 0;
  while (NFrac <> 0) and (i < aPrec) do
  begin
    Inc(i);
    Res := Res + D[Trunc(NFrac * aBase) + 1];
    NFrac := Frac(NFrac * aBase);
  end;
 
  {Добавляем в представление знак.}
  if aNum < 0 then
    Res := '-' + Res;
  NumToStr := Res;
end;