virtual treeview: node.parent ist niemals nil

[changlee]

Hallo,

ich habe ein sehr seltsames Problem:

Jeder Knoten in meinem VirtualStringTree hat einen Parent Knoten, also auch diejenigen, die ein Nodelevel 0 haben.

Hier ein Beispiel:
Neues Project --> VirtualStringTree und einen Button aufs Formular.
Im Onclick-Ereignis des Button folgenden Code eingefügt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var node:PVirtualNode;
begin
  node := vst.AddChild(nil);
  Caption := 'Level: ' + inttostr(vst.GetNodeLevel(node));
  if assigned(node.Parent) then
    Caption := Caption + '; Parent assigned'
  else
    Caption := Caption + '; Parent NOT assigned';
end;

Die Caption des Formulars ist nach einem Klick auf den Button: 'Level: 0; Parent assigned'

Wie kann das sein? Ist meine VirtualTreeview Installation defekt? Sonst hat das eigentlich immer funktioniert.