你写的数据地址，在另一个进程中没有意义.如果所有节点数据包含相同的记录类型，则必须更改（我没有检查树保存-恢复的整体正确性）：

writer.WriteInteger(Integer(node.data));

...到序列：

writer.WriteString(PMyRec(Node.Data)^.text);
...
writer.WriteString(PMyRec(Node.Data)^.Tipo);
writer.WriteBoolean(PMyRec(Node.Data)^.wasExpanded);

类似地，而不是：

node.Data := Pointer(Reader.ReadInteger);

...用途：

New(MyRecPtr);
MyRecPtr^.text := Reader.ReadString;

等等，最后：

node.Data := MyRecPtr;

您需要一个解析器来将数据传入和传出blob。用于此的数据格式的示例是JSON、XML、…或诸如TReader + TWriter等的组件。然而，这种实现需要进一步的知识。所以我会用我自己的解析器从已知到未知。在我的示例中，我使用ToString和FromString方法将解析器直接附加到记录。现在必须从数据库字段读取或保存字符串。

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, system.Math, Data.DB;

type
  TMyRec = record
  public
    const DELIM='###';
  constructor Create(Data: string);
  public
    text:string;
    codigo:string;
    medida:string;
    parent:string;
    ativo:String;
    Tipo: string;
    wasExpanded:boolean;
  public
    function ToString: string;
    procedure FromString(Value: string);
  end;

  { TMyRec }

  constructor TMyRec.Create(Data: string);
  begin
    FromString(Data);
  end;

  procedure TMyRec.FromString(Value: string);
  var
   i: integer;
   a: TArray<string>;
  begin
    Self := Default(TMyRec);
    a    := Value.Split([DELIM]);
    for i := 0 to Min(length(a), 7) do
    case i of
      0: text          := a[0]; //or a[i]
      1: codigo        := a[1];
      2: medida        := a[2];
      3: parent        := a[3];
      4: ativo         := a[4];
      5: Tipo          := a[5];
      6: wasExpanded   := boolean(StrToIntDef(a[6], 0));
    end;
  end;

  function TMyRec.ToString: string;
  begin
    //                0   1   2   3   4   5   6
    Result := Format('%s%s%s%s%s%s%s%s%s%s%s%s%d%',
    //                0            1              2              3
                     [text, DELIM, codigo, DELIM, medida, DELIM, parent, DELIM,
    //                4             5            6
                      ativo, DELIM, Tipo, DELIM, ord(wasExpanded)]);

  end;

  var
    s : string;
    r : TMyRec;
    db: TDataSet;
  begin
    try
      //Test-->
      r         := Default(TMyRec);
      r.text    := 'ABC';
      r.codigo  := 'DEF';
      r.medida  := 'GHI';
      r.ativo   := 'JKL';
      r.Tipo    := 'MNO';
      r.wasExpanded := True;

      //save
      s := r.ToString;
      writeln(s);

      //load
      r := Default(TMyRec);
      r := TMyRec.Create(s);
      s := r.ToString;
      writeln(s);
      //<<--Test

      { TODO : With Databaseconnection
      db.FieldByName('abc').AsString := r.ToString;
      r :=  TMyRec.Create(db.FieldByName('abc').AsString);
      }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.