TCheckListbox Auto-Destroy Objects

[Blup]

Soll sich die Checklistbox doch selbst um die Freigabe kümmern, dafür sind Komponenten da.

Delphi-Quellcode:

TZusatzDaten = class(TComponent)
  constructor Create(AOwner: TComponent; AS1, AS2: string); reintroduce;
private
  FS1: string;
  FS2: string;
public
  property S1: string read FS1 write FS1;
  property S2: string read FS2 write FS2;
end;

constructor TZusatzDaten.Create(AOwner: TComponent; AS1, AS2: string);
begin
  inherited Create(AOwner);
  FS1 := AS1;
  FS2 := AS2;
end;

ChecklistBox.AddItem('ItemA', TZusatzDaten.Create(CheckListBox, 'Text1', 'Text2'));