Delphi - Hexadecimal a decimal , sin la funcion , por que mi Delphi 4 no laa tiene

Hola, estoy tratando de convertir Hexadecimal a Decimal sin la funcion , porque no la tengo mi Delphi es el 4 muy anitguo , la inversa Decimal a Hexadecimal no me costo mucho trabajo , pero esto me trae loco , si alguien puede echarme una mano se lo agradeceria muchisimo , un saludo de Juan

• Conversor_Dec_Hex.rar(103,3 KB)