delphi - TVirtualStringGrid - ノードを正しくコピーして貼り付ける

Question

VirtualStringTree.CopyTo の良い例を教えてください。ノードを追加、削除するアプリケーションを作成しましたが、CopyTo を正しく動作させることができません。私の目標は、CopyTo 関数を使用して、ノードとその子を別の場所にコピーすることです。CopyTo 関数は、savenode および loadnode 関数を使用しているようです...

明確化: LoadNode および SaveNode メソッドを見ました。

次のタイプの TTreedata に対して、次のロードおよび保存メソッドを作成しました。

type
   PTreeData = ^TTreeData;
   TTreeData = record
      FCaption: String;
      FRichText: String;
      FImageIndex: integer;
      FVisibility: integer;
      FUniqueID: integer;
   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;

選択したノードでコピー機能を使用し、デバッグ モードで関数 LoadNode にステップ インすると、アドレス 000000000000000 行のアクセス違反 (Delphi XE8) 書き込みが発生します。

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

ありがとう