Die Kiste verschluckt sich einfach. Ich habe keine Ahnung, warum.
Es passt aber der schöne Spruch dazu, dass alles, was man im Constructor created, man im Destructor wieder destroyen soll.
Baue mal das folgende dazu, dann sollte es mit der Fehlermeldung vorbei sein:
Delphi-Quellcode:
procedure TForm1.FormDestroy(Sender: TObject);
begin
FComboBox.Free;
end;
Dann noch was:
Zitat:
Delphi-Quellcode:
destructor TNeueComboBox.Destroy;
begin
WHILE Items.Count > 0 DO Items.Delete(0);
inherited;
end;
Mit Delete gibst du keine Objekte frei, du löscht nur die Referenz aus der Liste.
Benutze Items.Objects[].Free, so wie du es schon in deinem zweiten Posting hier angedeutet hattest.