hexadecimal til decimal og omvendt

Der er indbyggede funktioner til formålet (i SysUtils):

IntToHex
StrToInt (Put et $-tegn foran det hexadecimale tal)

function IntToBaseX(num: integer; bas: integer): string;
var
    n:      integer;

    function toChar(n: integer): char;
    begin
        if n<10 then result:=chr(ord('0')+n)
        else result:=chr(ord('A')+n-10);
    end;

begin //integer to base x
    n:=num;
    result:='';
    repeat
        result:=toChar(n mod bas)+result;
        n:=n div bas
    until n=0;
end; //integer to base x


function BaseXtoInt(const num: string; bas: integer): integer;
var
    i:      integer;

    function getChar(c: char): integer;
    begin
        if c<='9' then result:=ord(c)-ord('0')
        else result:=ord(c)-ord('A')+10;
    end;

begin //base x to integer
    result:=0;
    for i:=1 to length(num) do
        result:=result*bas+getChar(num[i]);
end; //base x to integer

jeg har lavet en form med 4 edit bokse og to buttons, og resten siger lo sig selv de to af boksene bliver brugt til den ene vej o´g. de to andre bliver brugt til den anden vej

edit2.text=intToBaseX(strToInt(edit1.text),16);

laver edit1 om fra tal(10) til hex vises i edit2.

hvad er så det modsatte af overstående? hex til decimal og edit bokse

edit67.text:=intToStr(baseXtoInt(edit44.text,16));

hex i edit44 konverteres til decimal i edit67