delphi - Delphi XE8 と VirtualStringTree を使用してノードを適切に追加、ロード、保存する

Question

チェックボックスなどを含む基本的なツリービュー機能に virtualstringtree を使用しています。
元のドキュメント (2006 年以降) を使用しましたが、仮想文字列ツリーは問題ないように見えますが、保存したデータの読み込みでエラーが発生します。

InitNodeではなくを使用する必要があると思いますMAddVSTStructure。

このコンテキストでノードを追加する適切な方法を誰かが提案できますか?
これがおそらく、ロード プロシージャが情報をロードする理由ですが、ロードされたノードをクリックするとアクセス違反が発生します。

type
   PTreeData = ^TTreeData;
   TTreeData = record
      FCaption: String;
      FRichText: String;
      FImageIndex: integer;
      FVisibility: integer;
      FUniqueID: integer;
   end;

function MAddVSTStructure(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;  ARecord: TTreeData): PVirtualNode;
var
   Data: PTreeData;
begin
   Result:= AVST.AddChild(ANode);
   Result.CheckType:=ctTriStateCheckBox;
   Data:= AVST.GetNodeData(Result);
   Data^.FCaption:= ARecord.FCaption;
   Data^.FRichText:= ARecord.FRichText;
   Data^.FImageIndex:= ARecord.FImageIndex;
   Data^.FVisibility:= ARecord.FVisibility;
   Data^.FUniqueID:= ARecord.FUniqueID;
   AVST.ValidateNode(Result, False);
end;    

procedure vstSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode; Stream: TStream);
var
   Data: PTreeData;
   Len: integer;
begin
   Data:= Sender.GetNodeData(Node);

   //FCaption
   Len:= Length(Data.FCaption);
   Stream.Write(Len, SizeOf(Len));
   Stream.Write(PChar(Data.FCaption)^, Len * SizeOf(Char));

   //FRichText
   Len:= Length(Data.FRichText);
   Stream.Write(Len, SizeOf(Len));
   Stream.Write(PChar(Data.FRichText)^, Len * SizeOf(Char));

   //FImageIndex
   Stream.Write(Data.FImageIndex, SizeOf(Data.FImageIndex));

   //FVisibility
   Stream.Write(Data.FVisibility, SizeOf(Data.FVisibility));

   //FUniqueID
   Stream.Write(Data.FUniqueID, SizeOf(Data.FUniqueID));

end;
procedure vstLoadNode(Sender: TBaseVirtualTree; Node: PVirtualNode; Stream: TStream);
var
   Data: PTreeData;
   Len: Integer;
begin
   Data:= Sender.GetNodeData(Node);
   //Len:= Length(Data.FCaption);

   //FCaption
   Stream.Read(Len, SizeOf(Len));
   SetLength(Data.FCaption, Len);
   Stream.Read(PChar(Data.FCaption)^, Len * SizeOf(Char) );

   //FRichText
   Stream.Read(Len, SizeOf(Len));
   SetLength(Data.FRichText, Len);
   Stream.Read(PChar(Data.FRichText)^, Len * SizeOf(Char));

   //FImageIndex
   Stream.Read(PChar(Data.FImageIndex)^, SizeOf(Data.FImageIndex));

   //FVisibility
   Stream.Read(PChar(Data.FVisibility)^, SizeOf(Data.FVisibility));

   //FUniqueID
   Stream.Read(PChar(Data.FUniqueID)^, SizeOf(Data.FUniqueID));

end;