[VirtualTreeView] Widestrings speichern und laden

[necromundo]

Hallo zusammen,

ich benutze zur Zeit VirtualTreeView, um ein Abbild einer Verzeichnisstruktur zu erstellen. Soweit auch alles toll, nur habe ich jetzt ein Problem, wenn ich das abspeichern und wieder laden will.
Irgendwie habe ich den Eindruck, dass es dabei Probleme mit dem Speichern von Widestrings bzw. Unicode-Dateinamen gibt, die Hälfte der Namen sind dann nicht identifizierbare Sonderzeichen (Rechtecke).
Hier mal Codeschnipsel vom Speichern und Laden:

Delphi-Quellcode:

procedure TForm1.historyvstSaveNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Data: PHistoryTreeData;
  Len: integer;
begin
  Data := historyvst.GetNodeData(Node);
  // Dateiname
  Len := length(Data.FDateiname);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Data^.FDateiname)^, Len);
  // Dateipfad
  Len := Length(Data.FDateipfad);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Data^.FDateipfad)^, Len);

Delphi-Quellcode:

procedure TForm1.historyvstLoadNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Data: PHistoryTreeData;
  Len: integer;
begin
  Data := historyvst.GetNodeData(Node);
  // Dateiname
  Stream.read(Len, SizeOf(Len));
  SetLength(Data.FDateiname, Len);
  Stream.read(PChar(Data^.FDateiname)^, Len);
  // Dateipfad
  Stream.read(Len, SizeOf(Len));
  SetLength(Data.FDateipfad, Len);
  Stream.read(PChar(Data^.FDateipfad)^, Len);

Hat da vielleicht jemand eine Idee oder kennt das Problem? Das Umwandeln in normale String vor dem Speichern ist keine Option, da nach dem Laden auch auf Unicode-Dateinamen zugegriffen werden können soll.

VG, Benny