program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.JSON;

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

  TMyClass2 = class
    function CreateJSONArray: TJSonArray;
  end;

{ TMyClass }

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

{ TMyClass2 }

function TMyClass2.CreateJSONArray: TJSonArray;
begin
  Result := TJSonArray.Create;
end;

begin
  try
    var o := TMyClass.CreateJSONArray;

    var c: TMyClass2 := nil;
    var o2 := c.CreateJSONArray;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.