foreach TChecklistbox.items where Tchecklistbox.items[var].checked = true do
begin
whatever ....
end;
I think you can see the idea from that.
I just find that syntax very natural for many tasks.
for i := 1 to n do
result += i;
if n >= 1 then
result += n * (n + 1) div 2;