Converting Decimal to Octal (konversi Desimal ke Octal)

Untuk melengkapi Post sebelumnya tentang Konversi system bilangan, Saya menyertakan juga konversi Desimal ke Octal (basis 8) 

Berikut Adalah Sourcecodenya :

Function DecToOct(Inp : String): String;

Var
  HasilBagi,SisaBagi : Integer;
  Oct,Oktal : String;
  i : integer;
  Des : integer;
Begin
  Oct := '';
  Oktal := '';
  Des:= StrToInt(inp);
  Repeat
  SisaBagi := des Mod 8;
  Oct:= Oct + intToStr(SisaBagi);
  HasilBagi := Des Div 8;
  des:= HasilBagi;
  Until HasilBagi = 0;

  For I := length (Oct) Downto 1 Do
  Begin
  Oktal := Oktal+ Oct[i];
  End;
  Result:= Oktal;

End;

Untuk Menggunakannya :

Var Hasil : String;

begin

.

.

  Hasil := DecToOct('8');