How to take out the checkboxes that is checked in scrollbox?

I created dynamic checkboxes in scrollbox. I tried to remove the checkboxes that are checked in scrollbox, but I am not sure how to remove them. I tried with Components coding but it didn't work. Please help.

for i := 0 to sclList.ComponentCount-1 do

Begin

if TCheckbox(SclList.Components[i]).checked = true Then

Begin

  TCheckbox( sclList.Components[i] ).SetFocus;

  Break;

End;

End;