Ersten Eintrag in ChecklistBox herrausfinden.

[iKilledKenny]

Schleife über alle Items der CheckListBox, dann Checked [Index] abfragen

Delphi-Quellcode:

  for i := 0 to pred (CheckList.Items.Count) do
    if CheckList.Checked [i] then
      begin
        DoSomething (i);
        Break;
      end;