ListView1... Slet hvis checked!

Hvad er galt her:

procedure TForm1.Button4Click(Sender: TObject);
var i : Integer;
begin
for i := 0 to ListView1.Items.Count-1 do
begin
if ListView1.Items[i].Checked = True then
ListView1.Items.Delete(i);
end;
end;

Det er skal ske er at når man har "Checked" nogle "Items" og klikker på "Slet" så slette den ALLE dem som er "Checked", men det gøre min kode ikke.... hvad er galt?


Hilsen Morten