Намек понял... )
procedure SaveToJSON(AObject: TObject; const AFileName: String);
var
 AStreamer: TJSONStreamer;
 AJSON: TStringList;
 AJSONObject: TJSONObject;
begin
 AStreamer:=TJSONStreamer.Create(nil);
 AJSON:=TStringList.Create;
 try
   AJSONObject:=AStreamer.ObjectToJSON(AObject);
   try
     AJSON.Text:=AJSONObject.FormatJSON();
     AJSON.SaveToFile(AFileName);
   finally
     AJSONObject.Free;
   end;
 finally
   AJSON.Free;
   AStreamer.Free;
 end;
end;