LimitValue

procedure LimitValue(

  var Value: Integer;

  const Min: Integer;

  const Max: Integer

); overload;

procedure LimitValue(

  var Value: Int64;

  const Min: Int64;

  const Max: Int64

); overload;