VST: Drag/Drop funktioniert nicht ganz

[Phoenix]

Der Node ist immer assigned. Aber das NodeData Objekt nicht:

Delphi-Quellcode:

procedure TForm1.VST1FreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
  Archiv: TArchiv;
begin
  if assigned(node) then
  begin
    Archiv := TArchiv(Sender.getnodedata(node)^);
    if Assigned(Archiv) then
      FreeAndNil(Archiv);
  end;
end;