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'));