Ensure FindInsertNode only return -1, 0 or +1

git-svn-id: trunk@38788 -

packages/rtl-generics/src/generics.collections.pas

@@ -2875,12 +2875,15 @@ begin
     Result := Compare(ANode.Key,AInsertNode.Key);
     if Result < 0 then
     begin
+      Result:=-1;
       if AInsertNode.Left = nil then
         Exit;
       AInsertNode := AInsertNode.Left;
     end
     else
     begin
+      if Result > 0 then
+        Result:=1;
       if AInsertNode.Right = nil then
         Exit;
       AInsertNode := AInsertNode.Right;