[ecfisa]

Hola.

Fijate si te sirve de este modo:

Código Delphi [-]
function EnteroAHexadecimal(Num: Int64): string;
const
  B16: array[0..15] of Char = ('0','1','2','3','4','5','6','7','8','9',
        'A','B','C','D','E','F');
var
  Resto: Int64;
begin
  Result:= '';
  while (Num > 0) do
  begin
    Resto:= Num mod 16;
    Num:= Num div 16;
    Result:= B16[Resto] + Result
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
var
  Numero: Int64;
begin
  Numero:= 12517;
  ShowMessage(EnteroAHexadecimal(Numero));
  ...

Saludos.

Edito: Pero te vas a topar con la limitante que hablábamos con LoPiTaL más arriba...