Procedure LongIntToHex(Decimal:LongInt; Var Hex:String);

    This converts a LongInt value to  an  8  digit  string, Hex.  Hex has
    leading zeros, not leading spaces.  Hex is in uppercase.

    Example

    LongIntToHex(10,Hex) = Hex:='0000000A';