Как распарсить Json в Delphi XE8

[ArtGrek]

Здравствуйте!
хочу распарсить такую строку
{P1:V1,P2:V2,P3:{z1:x1,z2:x2},P4:V4 }
так
A1=V1, A2=V2, A3=x1, A4=x2, A5=V4

Uses
  System.JSON;
...
procedure pars(JsonString: String);
var
  parss: TStringList;
  i : integer;
begin
  try
    parss := TStringList.Create;
    parss.Text := JsonString;
    FJSONObject := TJSONObject.ParseJSONValue(parss.Text) as TJSONObject;
    if Assigned(FJSONObject) then
    begin
      for i := 0 to FJSONObject.Count-1 do
      begin
        if FJSONObject.Pairs[i].JsonString.Value = 'P1'
          then A1 := FJSONObject.Pairs[i].JsonValue.Value;
        if FJSONObject.Pairs[i].JsonString.Value = 'P2'
          then A2  := FJSONObject.Pairs[i].JsonValue.Value;
      end;
    end
    else begin
      raise Exception.Create('А где Json то? Джейсона то и нету )))');
    end;
  finally
    parss.Free;
  end;
end;

как записать? если z1 тогда A3=x1
Спасибо!

[Аватар]

Распарсить как вложенный объект. К сети какое отношение имеет?