VirtualTreeView und Baumstruktur

[Albi]

Schönen guten Abend,

ich habe mir die Kompo von Delphi Gems geholt und stehe nun vor dem Problem, das ich keien SubNode hingefügt bekomme.

Das heißt, ich weiß wie das per Btn anstelle aber ich hole mir die Daten aus einer Query und trage die in einen Record. Nun stehen in der Abfrage aber noch weitere Daten diese möchte ich in die SubNode eintragen. So das es dann in etwa so aussieht.

|-Name
|--Name1
|--Name2

Über diesen Code trage schreibe ich die Daten in die ListView.

Delphi-Quellcode:

 CustRec:= Sender.GetNodeData(Node);
  Initialize(CustRec^);
  CustRec.AVorname:= Query1.Fields[0].AsString;
  CustRec.AName:= Query1.Fields[1].AsString;
  CustRec.AVornameGF1:= Query1.Fields[2].AsString;
  CUstRec.ANameGF1:= Query1.Fields[3].AsString;
  if not Query1.Eof Then
    Query1.Next;
end;

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var CustRec: PCustRec;
begin
  CustRec:= Sender.GetNodeData(Node);
  If Column = 0 Then
    CellText:= CustRec.AVorname;
  IF Column = 1 Then
    CellText:= CustRec.AName;
end;