program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.JSON;

type
  TMyClass = class
    class function CreateJSONArray: TJSonArray;
  end;

{ TMyClass }

class function TMyClass.CreateJSONArray: TJSonArray;
begin
  Result := TJSonArray.Create;
end;

begin
  try
    var o := TMyClass.CreateJSONArray;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.