Memory Leak bei TJsonObject

[Kostas]

LResponse wird vorher NICHT erzeugt!

So habe ich es jetzt umgesetzt.

Delphi-Quellcode:

    try  
      LResponse := TJsonObject.ParseJSONValue(LResponseStream.Bytes, 0, LResponseStream.Size) as TJsonObject;

      if Assigned(LResponse) then
      begin
        LResponse.TryGetValue<String>('access_token', access_token);
        LResponse.TryGetValue<String>('refresh_token', refresh_token);
        LResponse.TryGetValue<integer>('expires_in', expires_in);
        LResponse.Free;
      end;
    except
      // Fehlerbehandlung.
    end;

Vielen lieben Dank und frohe Weihnachten an alle.