Swaps two LongInt values if necessary to ensure that Min <= Max.

procedure SwapMin(var Min: LongInt; 
                  var Max: LongInt);

ImagingUtility (at line 241)