Swaps two Single values

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

ImagingUtility (at line 239)