Не все удаляет

[AgressiveBehavior]

Немогу понять что нетак ??

 I:=0;
 while i<CheckListBox1.Items.Count do
  begin
 if  (CheckListBox1.Checked[i]=True) then
  CheckListBox1.Items.Delete(i);
  
  Inc(i);
end;

После исполнения кода в ЛистБоксе остаются итемы,так для удаления всех итемов при всех выбраных, кнопку "удалить",
приходится нажимать несколько раз

[russian-stalker]

Уберите Inc(i). Он не нужен здесь

[Пепел Феникса]

потому что неверная логика.

i:=0;
while i<CheckListBox1.Items.Count do if CheckListBox1.Checked[i] then CheckListBox1.Items.Delete(i) else Inc(i);

примерно так.