VirtualTreeView: Es klappt nicht ganz

[JPSelter]

So, jetzt stosse ich an erste Probleme. Ich habe ein Objekt erzeugt und möchte es an den Baum anhängen. Da läuft er auch durch, aber am Ende (scheinbar bevor er den VTV anzeigen will) kommt eine EAccessViolation. Ich kann den Fehler leider nicht ganz zurückverfolgen, ich weiss nur, dass er aus der VTV Klasse kommt. Delphi bleibt in der Funktion TCustomVirtualStringTree.DoGetText stehen, aber auch nach 2-maligem Durchlauf von TBaseVirtualTree.WndProc. Hier erstmal mein bisheriger Code:

Objekt-Definition:

Delphi-Quellcode:

// Ebene 0: Sitzungsdaten
  TSessionObject = class
    private
      fdatum: integer;
      fsessiontyp: string;
      fprotokollant: string;
      fteilnehmer: string;
      fverteiler: string;
      fndatum: integer;
    published
      property datum: integer read fdatum write fdatum;
      property sessiontyp: string read fsessiontyp write fsessiontyp;
      property protokollant: string read fprotokollant write fprotokollant;
      property teilnehmer: string read fteilnehmer write fteilnehmer;
      property verteiler: string read fverteiler write fverteiler;
      property ndatum: integer read fndatum write fndatum;
  end;

Neues Objekt wird mit Daten versehen und an den Baum gehangen:

Delphi-Quellcode:

// insert new session
procedure insertSession();
var SessionObject: TSessionObject;
    datum, ndatum: integer;
begin
  Form1.VST1.NodeDataSize:=SizeOf(TTreeData);
  SessionObject:=TSessionObject.Create;
  try
    datum:=DateTimeToUnix(Form1.DateTimePicker1.Date);
    ndatum:=DateTimeToUnix(Form1.DateTimePicker2.Date);
    SessionObject.datum:=datum;
    SessionObject.sessiontyp:=Form1.ComboBox1.Text;
    SessionObject.protokollant:=Form1.Edit1.text;
    SessionObject.teilnehmer:=Form1.Edit2.Text;
    SessionObject.verteiler:=Form1.Edit3.Text;
    SessionObject.ndatum:=ndatum;
    AddVSTObject(Form1.VST1,nil,SessionObject);
  except
    SessionObject.Free;
  end;
end;

Die eigentliche Anhänge-Funktion:

Delphi-Quellcode:

// add new structure into VST
function AddVSTObject(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
  AObject: TObject): PVirtualNode;
var
  Data: PTreeData;
begin
  Result:=AVST.AddChild(ANode);
  AVST.ValidateNode(Result,False);
  Data:=AVST.GetNodeData(Result);
  Data^.FObject:=AObject;
end;

Er läuft da überall ohne Probleme durch, keine Fehlermeldungen, nur am Ende dieses EAccessViolation... vielleicht kennt sich da jemand genauer aus. Danke!