Was hält dich davon ab, das hier zu tun?
Delphi-Quellcode:
procedure TForm1.FormDestroy(Sender: TObject);
var
i: Integer;
begin
with ListBox1 do
for i := 0 to Items.Count - 1 do
Items.Objects[i].Free;
end;
Manchmal sind die Dinge einfacher als gedacht
