Link in ListBox und TTreeview !

[Nuclear-Ping]

Delphi-Quellcode:

procedure TForm1.FormDestroy(...);
var
  Data: PMyLink;
  i: Integer;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do
    begin
      Data := PMyLink (ListBox1.Items.Objects[i]); // <<
      Dispose (Data);
    end;
end;