Muchas gracias a todos, les cuento que alfín pude convertir el decimal gigante a hexadecimal, les dejo el código:
Código Delphi
[-]
function BCDToHex(BCD: TBCD): 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
BcdEx,DivBcd: TBCD;
ModInt,SepDec: Integer;
begin
Result:= '';
while (Bcd > 0) do
begin
BCDDivide(Bcd,16,BcdEx);
SepDec:=Pos(DecimalSeparator,BCDToStr(BcdEx))-1;
If SepDec > 0 then begin
DivBcd:=StrToBCD(Copy(BCDToStr(BcdEx),0,SepDec));
end else begin
DivBcd:=BcdEx;
End;
ModInt:=StrToInt(BCDToStr(Bcd - (16 * DivBcd)));
Result:= B16[ModInt] + Result;
BCD:=DivBCD;
end;
end;
Y adicionalmente les dejo el proyecto de ejemplo en Lazarus, está comprimido en 7z así tenga extensión Zip, saludos y muchas gracias.