[Electronic_Arts]

Всем привет - В чем проблема - почему не удаляеться выбранные

Код:

var
i:integer;
begin
 for i:=0 to ListView1.Items.Count-1 do
 if ListView1.Items[i].Checked then
 begin
  listview1.Items.Delete(i);
 end;
end;

При удалении выдает ощибку
Access violation at address 00443F78 in module 'Project1.exe'. Read of address 00000004.