* fix bug in .find (copy-and-paste?) mentioned by Ludo in #22273

git-svn-id: trunk@21635 -

packages/fcl-json/src/fpjson.pp

@@ -2158,7 +2158,7 @@ Var
 
 begin
   I:=IndexOfName(AName);
-  If (I=-1) then
+  If (I<>-1) then
     Result:=Items[i]
   else
     Result:=Nil;