TFbmHttp

var
  Http: TFbmHttp;
  ResponseText: string;

begin
  Http := TFbmHttp.Create;
 
  try
    Http.ContentType := 'application/json';

    Http.PostEx(
      'https://app.fakejson.com/q',
      '{"token": "AwyBv-DAUrxbzVB6Y-33uw","data": ' +
        '{"id": "personNickname","email": "internetEmail","gender": "personGender","last_login": ' +
          '{"date_time": "dateTime|UNIX","ip4": "internetIP4"}' +
        '}' +
      '}',
      ResponseText
    );

    Item.AddToProtocol(ResponseText);
  finally
    Http.Free;
  end;
end.

var
  Http: TFbmHttp;
  Response: string;
  Json: TFbmJsonObject;

begin
  Http := TFbmHttp.Create;

  try
    if Http.GetEx2('https://feiertage-api.de/api/?jahr=' + IntToStr(YearOf(Now)), Response) then
    begin
      Json := TFbmJsonObject.Create;

      try
        try
          Json.LoadFromStr(Response);

          if Json.Has('NI') then
          begin
            if Json.Items['NI'].O.Has('Ostermontag') and (Json.Items['NI'].O.Items['Ostermontag'].DataType = jdtObject) then
            begin
              if Json.Items['NI'].O.Items['Ostermontag'].O.Has('datum') and (Json.Items['NI'].O.Items['Ostermontag'].O.Items['datum'].DataType = jdtString) then
              begin
                Item.AddToProtocol('Ostermontag ist am: ' + Json.Items['NI'].O.Items['Ostermontag'].O.Items['datum'].S);
              end;
            end;
          end;
        except
          // Hier ggf. Fehlerbehandlung, falls keine gültigen JSON-Daten vorliegen.
        end;
      finally
        Json.Free;
      end;
    end;
  finally
    Http.Free;
  end;
end.