HexVal := IntToHex(IntVal,8);

 	function IntToHex2( n:integer ):string;
 	 const hex:array [0..15] of char
 	    =('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
 	begin
 	 while n<>0 do begin
 	    result:=hex[ 15 and n ]+result; {=(n mod 15)}
 	    n:=n shr 4; end; {=n div 16}
 	end;

                HexString:=IntToHex2 ('666')

 	hexString:=Format('%x',[LongIntNumber]);