How do I pretty-print JSON in Delphi?

Question

I am looking for a function that will take a string of JSON as input and format it with line breaks and indentations (tabs).

Example: I have input line:

Answer 1

If you're working with Delphi XE or newer, you can use the delphi-xe-json library

function PrettyPrint (aJSON : string) : string;
var
  jo : IJSONObject
begin
  jo := TJSON.NewObject(aJSON);
  result := jo.ToString(true);
end;