Lazarus: чтение и разбор Json

Задача: прочитать Json с URL и распарсить его

Решение:

На неком удалённом ресурсе находится файл вида:

{
"error": false,
"result": [
{
"dt": "2023-01-16T10:49:14",
"url": "https://rfefe.грибовы.рф/?p=41",
"title": "Очень важное уведомление",
"text": "Олала",
"read": true
},
{
"dt": "2023-01-15T10:49:14",
"url": "https://erferf.грибовы.рф/?p=40",
"title": "Очень важное уведомление 2",
"text": "Олала 2",
"read": false
}
]
}

Сначала прочитаем файл в строку, а затем распарсим полученный json и переберем его в виде массива или выведем текст ошибки:

procedure TForm1.LoadJson(Sender: TObject);
var
  url, json : String;
  jsd: TJSONData;
  error : Boolean;
  Arr:TJSONData;
  i : integer;

begin
  url := 'http://ewrdfwerf.xn--90acbu5aj5f.xn--p1ai/get_events.php';
  Try
     json := TFPCustomHTTPClient.SimpleGet(url);
  Except
      json:='{"error": true,"result": "Ошибка получения данных"}';
  end;
  jsd:=GetJSON(json);
  error :=  jsd.FindPath('error').AsBoolean;
  if error=true then begin
    MessageDlg(jsd.FindPath('result').AsString, mtInformation,[mbOk],0);
  end;
  if error=false then
   begin
     for i:=0 to jsd.FindPath('result').Count-1 do
     begin
          MessageDlg(jsd.FindPath('result').Items[i].FindPath('title').AsString, mtInformation,[mbOk],0);
     end;
    end;
end;