1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function Konvertiere(zahl: integer; zielsystem: Byte): string;
const
  ziffern: array[0..15] of Char =
    ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
var
  b: Integer;
begin
  Result:='';
  b:=Zahl;
  while b > 0 do
  begin
    Result:=ziffern[b mod zielsystem]+Result;
    b:=b div zielsystem;
  end;
end;