https://wiert.me/2021/03/03/json-or-binary-stream-delphi-2010-how-to-save-a-whole-record-to-a-file-stack-overflow/