VirtualStringTree - Speicher freigeben

[dGeek]

Ich nutze in einem Testprojekt einige VST's die gut befüllt werden.
Der Speicherbedarf ist recht hoch dabei, was wohl normal zu sein scheint.

Leere ich die VST's jetzt, so bleibt der Arbeitsspeicher jedoch unverändert hoch.

Was mache ich falsch bei diesen kleinen 3 Zeilen? Oder fehlt gar etwas?

Delphi-Quellcode:

// Button-Klick zum "Freigeben" des Speichers, was nicht klappt..
VST.Clear;
VST.Free;
VST := nil;

// VST-Event:
procedure TForm1.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
  Data: PTreeData;
begin
  Data := VST.GetNodeData(Node);
  Finalize(Data^);
end;