【Delphi】JSON Handling

DelphiとJSONは相性が良くないなぁ。

var
  jsValue:TJsonValue;
  jsObject: TJSONObject;
  jsPair: TJSONPair;
  jsArray: TJSONArray;
  i:integer;
begin
  jsValue := TJSONObject.ParseJSONValue(strJson);
  jsObject := jsValue as TJSONObject;
  jsPair := jsObject.Pairs[0];
  jsPair.JsonString.Value;
  jsArray := jsPair.JSONValue as TJSONArray;
  for jsValue in jsArray do
  begin
    jsObject := jsValue as TJSONObject;
    jsPair := jsObject.get('trigger_id');
    ShowMessage(jsPair.JSONValue.Value);
  end;
end;