Link in ListBox und TTreeview !

[Delphiturbo]

Es funktioniert sehr gut, Danke !

aber es stimmt was nicht mit Ondestroy :

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
var
  //Data: PMyLink; // !!!
  Data: TObject;  // so geändert
  i: Integer;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do
    begin
      Data := ListBox1.Items.Objects[i];
      Dispose (Data); // incompatibl Types
    end;
end;