* Fix for bug ID #24603 (initialize result of TJSONObject.DoFormatJSON)

git-svn-id: trunk@24905 -

packages/fcl-json/src/fpjson.pp

@@ -1920,6 +1920,7 @@ Var
 
 
 begin
+  Result:='';
   CurrentIndent:=CurrentIndent+Indent;  
   For I:=0 to Count-1 do
     begin