checkboxlist liest alle Subitems aus

[LuX2k]

HI

folgendes Problem, ich hab ne Checklistbox mit mehrere Spalten. Wenn ich 1 Checkbox anklicke und dann meine procedure ausführe, liest er mir zwar die Caption von dem Item aus, aber alle Subitems in der Liste.
Ich hab zwar schon ordentlich die Suche missbraucht, aber finde keine Lösung dafür :-/

Delphi-Quellcode:

 for i:=0 to dlfilelist.Items.Count-1 do begin
   if dlfilelist.Items.Item[i].Checked = true then
      form2.ws.Lines.Add(fetttags.Text+dlfilelist.Items[i].Caption+fetttage.Text);
        form2.ws.Lines.Add(wstags.Text+dlfilelist.Items[i].SubItems[1]+wstage.Text);
 end;
form2.Show;
end;

wäre dankbar, wenn mir jemand einen Tip geben könnte, wie ich das Problem lösen könnte

Machs Gut

LuX2k