Virtual String Tree: Nodecaption wird nicht gesetzt

[Nils_13]

Hi,

Delphi-Quellcode:

procedure TfrmMain.addNodeClick(Sender: TObject);
var Data: PTreeData;
    Node: PVirtualNode;
begin
  Data     := VST.GetNodeData(Node);
  Data.Str := Edit1.Text;
  Node     := VST.AddChild(nil); <-- AV
  VST.AddChild(Node);
end;