>Eu uso , a seguinte função para saber o nº de série do disco , poderias verificar , se esta função retorna o nº já em hexadecimal , ou se eu necessito , depois de chamar esta função , aplicar a tua sugestão ?

O número de série é devolvido neste parâmetro (in/out):

integer @lpVolumeSerialNumber

Como é um inteiro, para representar em hexadecimal vai ser preciso uma expressão como a que sugeri.

Por falar em sugestões: evita usar variáveis compostas com letras singulares (como i e j), para que não haja problemas com a identificação das áreas de trabalho...