Virtual String Tree: Nodecaption wird nicht gesetzt

[Igotcha]

Leute, was macht ihr da?

Delphi-Quellcode:

procedure TfrmMain.addNodeClick(Sender: TObject);
var Data: PTreeData;
    Node: PVirtualNode;
begin
  Node     := VST.AddChild(nil); 
  Data     := VST.GetNodeData(Node)
  Data.Str := 'so gehts';
end;