UpdateMinMax

procedure UpdateMinMax(

  AValue: Double;

  var AMin: Double;

  var AMax: Double

); overload;

procedure UpdateMinMax(

  AValue: Integer;

  var AMin: Integer;

  var AMax: Integer

); overload;