Changes in new versions / Delphi 12 Athens

// *** in version 12: ***
// the column of the closing quotes sets the left edge: exactly that much
// leading space is cut from every line, and whatever is indented further
// keeps the difference
procedure Show;
begin
  var Json :=
    '''
    {
      "name""Anna",
      "age"31
    }
    ''';

  // the value above starts with '{' - the four spaces that align the
  // block with the closing quotes are not part of the string, while the
  // two extra spaces before "name" are

  Writeln(Json);
end;

// a literal that must contain three apostrophes of its own is opened and
// closed with a longer odd run - five or seven