* Exit find if not sorted (bug id 28774)

git-svn-id: trunk@31941 -

rtl/objpas/classes/stringl.inc

@@ -1390,6 +1390,8 @@ var
   CompareRes: PtrInt;
 begin
   Result := false;
+  if Not Sorted then 
+    exit;
   // Use binary search.
   L := 0;
   R := Count - 1;