Удаление Items в ListView

[BioHEX]

Помогите переписать цикл, а то у меня уже башка взрывается.

{for i := 0 to ListView1.Items.Count-1 do
  begin
   if ListView1.Items.Item[i].Checked then
    begin
     ListView1.Items.Item[i].Delete;
    end;
  end;}

[mihali4]

Делайте с конца к началу - downto.
И все будет в порядке...