anchor.diff:    end;
   end;
   
  -{ Clip Value }
  +{ Clip/Min/Max Value }
   
   function ClipValue( AValue, MinValue, MaxValue: Integer) : Integer;
   begin
  
positive.code:     Result := MaxValue
    else
      Result := AValue
  end;
  
  {%region TBox }
  
negative.code: function GetSetName(const aSet:PTypeInfo; Value: Integer):string;
  function GetSetValue(const aSet:PTypeInfo; Name: String): Integer;
  
  { Clip/Min/Max Value }
  function ClipValue( AValue, MinValue, MaxValue: Integer) : Integer;
  function MinValue(const AArray : array of Cardinal) : Cardinal;
  
  { DateTime functions }
  function TimeStamp : AnsiString;
  