Ok das habe ich verstanden.
Folgendes mache ich schon beim VST.
Delphi-Quellcode:
procedure Tfrm_task.vst_task_documentsFreeNode(Sender: TBaseVirtualTree;
Node: PVirtualNode);
var
Document : TODocuments;
begin
Document := TODocuments(vst_task_documents.GetNodeData(Node)^);
Document.Free;
end;
Jetzt weiß ich nicht, wo ich es noch machen soll und vor allem wie?
Die Klasse TODocuments steht ja in Verbindung zum VST. Siehe oben bei Tfrm_task.SQLDataToVST_Documents.
Für einen Hinweis wäre ich dankebar.
Es gibt natürlich mehrere Möglichkeiten ein Objekt im Bezug zu einem VST freizugeben. Die eine Lösung ist die, wie du es in deinem Beispiel machst. Die andere wäre die, dass du dir beim Erstellen alle Objekte in bspw. einer ObjectList speicherst und dann nur noch beim Beenden deines Programmes die ObjectList freigibst, welche dann alle beinhaltende Objekte ebenfalls freigibt.
(Sofern OwnsObjects auf true steht).