* Fix test case

git-svn-id: trunk@36060 -

tests/webtbs/tw9419.pp

@@ -13,7 +13,7 @@ var
 
 begin
   map := TMymap.Create();
-
+  map.sorted:=true;
   map.Add('Hello', ta);
 
   map.Find('Hello', i);