minor change to fcl-json

jsonConf.pp

procedure TJSONConfig.Flush;

After

F.WriteBuffer(S[1],Length(S));

I suggest to add (in begin..end):

      begin
        F.WriteBuffer(S[1],Length(S));
        FileFlush(F.Handle); // Alexey
      end;  

This makes sure json-file survives the nearest PC hang.

2. Same function. you have if S>'' then . why not if S<>'' ?