Парсинг JSON в Delphi

var
    Obj: TJsonObject;
begin
    Obj := TJsonObject.ParseFromFile('json.txt') as TJsonObject;
    try
         ShowMessage(Obj['title'].Value);
    finally
        Obj.Free;
    end;

X := SO(s); //s - JSON строка
  ShowMessage( X['response."items[Index]"."message"."title"'].AsString );

X:=SO(s);
showMessage(X.O['response'].a['items'].o[index].o['message'].s['title']);

procedure TfParseComplicatedJSON.bParse2Click(Sender: TObject);
 
var
   OriginalJSONObject, ResponseJO, FirstElementInArray: TJSONObject;
   joItems: TJSONArray;
   OriginJsonString: String;
 
  titleJO: TJsonObject;
  MessageJO: TJsonObject;
 
 
begin
  OriginJsonString := MemoSource2.Lines.Text; // original JSON without added braces around it
  OriginalJSONObject := TJSONObject.ParseJSONValue(OriginJsonString) as TJSONObject;
 
  ResponseJO:=(OriginalJSONObject.GetValue('response') as TJSONObject);
 
 
    joItems := ResponseJO.GetValue('items') as TJSONArray;
 
    FirstElementInArray := joItems.Items[0] as TJSONObject;
 
    MessageJO:=FirstElementInArray.GetValue('message') as TJSONObject;
 
 
    ShowMessage(
    'title='+MessageJO.GetValue('title').Value+#13#10+
    'body='+MessageJO.GetValue('body').Value
    );
 
 
 
 FreeAndNil(OriginalJSONObject);
 
end;

procedure TfParseComplicatedJSON.ParseComplJson;
 
var
   OriginalJSONObject, SomeJsonObject, joItem: TJSONObject;
   joItems: TJSONArray;
   OriginJsonString, Msg: String;
   Success:Boolean;
   i: Integer;
 
 begin
  OriginJsonString := MemoSource.Lines.Text; // original JSON without added braces around it
  OriginalJSONObject := TJSONObject.ParseJSONValue(OriginJsonString) as TJSONObject;
 
     Success :=  OriginalJSONObject.GetValue('Success') is TJSONTrue;
  // if you are using Delphi 10 Seattle or later, you can use this instead:
 //  bSuccess := (OriginalJSONObject.GetValue('Success') as TJSONBool).AsBoolean;
 
  if not Success then MemoDest.Lines.Add('Success=true') else
   MemoDest.Lines.Add('Success=false');
 
// MemoDest.Lines.Add('Success='+Success);
 
 
  Msg := OriginalJSONObject.GetValue('Msg').Value;
  MemoDest.Lines.Add('Msg='+Msg);
 
  SomeJsonObject := OriginalJSONObject.GetValue('SomeJsonObject') as TJSONObject;
  // use joRet.GetValue() as needed ...
 
// Names from array items
 
  MemoDest.Lines.Add('Names from array items');
  joItems := SomeJsonObject.GetValue('Items') as TJSONArray;
 
  for i := 0 to joItems.Count-1 do
  begin
    joItem := joItems.Items[i] as TJSONObject;
    // use joItem.GetValue() as needed ...
    MemoDest.Lines.Add ('Name='+joItem.GetValue('Name').Value);
 
  end;
 
 
FreeAndNil(OriginalJSONObject);
 
end;