Swaps two Byte values

procedure SwapValues(var A: Byte; 
                     var B: Byte); overload;

ImagingUtility (at line 233)