用“页脚”附加到大JSON文件=有效替换最后一行

Question

Delphi应用程序正在使用TStreamWriter将其附加到一个较大的JSON文件中，而没有完全重写它：

procedure TFileWriter.saveToFile(const fileName, S: string);
var
  sw: TStreamWriter;
begin
  sw := TStreamWriter.Create(fileName, True, TEncoding.UTF8);
  try
    sw.Write(S);
  finally
    sw.Free();
  end;
end;

问题是：它是一组项目，需要用最后一个方括号终止：

[
  {item},
  {item},
  {item},
  {item}
]

此外，该应用程序每10秒钟写入一次新条目，并且应在此右方括号之前插入该条目。

是否有某种方法可以减少文件的最后CRLF和方括号的大小，而无需完全读取文件？