Procedure ByteToHex(Decimal:Byte; Var Hex:String);

    This converts a byte value  to  a  2  digit  string,  Hex.   Hex  has
    leading zeros, not leading spaces.  Hex is in uppercase.

    Example

    ByteToHex(10,Hex) = Hex:='0A';