在TStringWriter中压缩/解压缩数据

Question

我正在使用TStringWriter和TJSONTextWriter类在Delphi 10.2.3中创建一个JSON文件。结果JSON字符串很大（50 mb）。压缩TStringWriter输出并将其保存到文件的最优雅方法是什么？显然，打开文件时，我还需要做相反的事情。