Swaps two Word values
procedure SwapValues(var A: Word; var B: Word); overload;
ImagingUtility (at line 235)