Procedure WordToHex(Decimal:Word; Var Hex:String);


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

    Example

    WordToHex(10,Hex) = Hex:='000A';