Daten-Rekord zu TreeView hinzufügen - Problem/AV

[Jim Carrey]

Ich bin scheinbar wieder zu doof die Sachen anzuwenden, die ich einst gelernt habe.
Für eine VirtualStringTree die nur sehr wenige Nodes enthalten soll (weniger als 10), benutze ich ein Rekord und folgendes Konstrukt:

Delphi-Quellcode:

type
 PVSTData = ^TVSTData;

 TVSTData = packed record
  sTitle, sInformation: string;
 end;

Delphi-Quellcode:

procedure AddVSTStructure(aVST: TVirtualStringTree; aRecord: TVSTData);
var
 Data: PVSTData;
 Node: PVirtualNode;
begin
 Node := aVST.AddChild(nil);
 Data := aVST.GetNodeData(Node);

 Data^ := aRecord;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 aVSTData: TVSTData;
begin
 aVSTData.sTitle:= 'Title';
 aVSTData.sInformatio := 'Info';
 AddVSTStructure(VirtualStringTree1, aVSTData);
end;

procedure TForm1.VirtualStringTree1FreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
 Data: PVSTData;
begin
 Data := VirtualStringTree1.GetNodeData(Node);
 Finalize(Data^);
end;

Den Code AddVSTStructure habe ich vor langer Zeit hier im Forum gefunden und er hat auch immer funktioniert.
Nur bei diesem simplen Beispiel erhalte ich eine AV beim Klicken auf den Button (Zugriffsverletzung). Der node wird hinzugefügt, es gibt aber eine AV.
Das Problem ist: mein Testprojekt enthält nur diesen Button, das VST und sonst nichts.