* fixed some small bugs

uutlCommon.pas

@@ -79,7 +79,7 @@ type
   end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
-function  Supports              (const aInstance: TObject; const aClass: TClass; out aObj): Boolean;
+function  Supports              (const aInstance: TObject; const aClass: TClass; out aObj): Boolean; overload;
 function  GetTickCount64        (): QWord;
 function  GetMicroTime          (): QWord;
 function  GetPlatformIdentitfier(): String;

uutlListBase.pas

@@ -119,7 +119,7 @@ end;
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 procedure TutlListBase.SetCount(const aValue: Integer);
 begin
-  if (aValue < Capacity) then
+  if (aValue > Capacity) then
     Capacity := aValue;
   fCount := aValue;
 end;