VirtualStringTree: "Beispiel" beschreibt Form.caption

[Graffi]

Hallo und Frohe Ostern!

Momentan lese ich mich in VirtualStringTree ein und habe das simple Beispiel "Minimal" in meine Anwendung kopiert. Ohne jegliche Veränderung!
Problem ist nun, die Routine "InitNode" beschreibt nicht die Captions der Knoten, sondern verändert lediglich meinen Fenstertitel.

Delphi-Quellcode:

procedure TFMain.TVElemente1InitNode(Sender: TBaseVirtualTree; ParentNode,
  Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
var
  Data: PMyRec;

begin
  with Sender do
  begin
    Data := GetNodeData(Node);
    // Construct a node caption. This event is triggered once for each node but
    // appears asynchronously, which means when the node is displayed not when it is added.
    Data.Caption := Format('Level %d, Index %d', [GetNodeLevel(Node), Node.Index]);
  end;
end;

Sehe ich den Wald vor lauter Bäumen nicht???

Gruss, Ralf