Hola
Puede ser que la informacion este separada o sea sutil, intenta modificando estos parametros.
Código Delphi
[-]
Result := IntToHex(SerNum,8);
Insert('-', Result, 5);
Por ejemplo asi:
Código Delphi
[-]
Result := IntToHex(SerNum,8);
Insert('-', Result, 8);
o asi:
Código Delphi
[-]
Result := IntToHex(SerNum,15);
Insert('-', Result, 8);
Tal vez tengas variantes.
Saludos