* fixed compiler warnings

uutlAlgorithm.pas

@@ -100,6 +100,7 @@ class function TutlBinarySearch.DoSearch(
 var
   i, cmp: Integer;
 begin
+  result := false;
   if (aMin <= aMax) then begin
     i   := aMin + Trunc((aMax - aMin) / 2);
     cmp := aComparer.Compare(aItem, aArray[i]);
@@ -127,6 +128,7 @@ class function TutlBinarySearch.DoSearch(
 var
   i, cmp: Integer;
 begin
+  result := false;
   if (aMin <= aMax) then begin
     i   := aMin + Trunc((aMax - aMin) / 2);
     cmp := aComparer.Compare(aItem, aArray[i]);

uutlSyncObjs.pas

@@ -169,6 +169,7 @@ var
   i: integer;
   timeout, tick: qword;
 begin
+  result := wrError;
   timeout := GetTickCount64 + aTimeout;
   for i := 0 to Count-1 do begin
     if (aTimeout <> INFINITE) then begin