anchor.diff:      Result := MaxValue
     else
       Result := AValue
  +end;
  +
  +function MinValue(const AArray : array of Cardinal) : Cardinal;
  +var i : SizeInt;
  +begin
  +  Result := -1;
  +  for i := Low(AArray) to High(AArray) do begin
  +    if Result > AArray[i] then
  +      Result := AArray[i];
  +  end;
   end;
   
   {%region TBox }
  
positive.code: function GetSetName(const aSet:PTypeInfo; Value: Integer):string;
  function GetSetValue(const aSet:PTypeInfo; Name: String): Integer;
  
  { Clip Value }
  function ClipValue( AValue, MinValue, MaxValue: Integer) : Integer;
  
  { DateTime functions }
  function TimeStamp : AnsiString;
  
negative.code:   end;
  end;
  
  { Clip/Min/Max Value }
  
  function ClipValue( AValue, MinValue, MaxValue: Integer) : Integer;
  begin
  