var i:integer;begin if listview1.Selected <> nil then //eğer seçilen item varsa begin for i := 0 to listview1.SelCount -1 do //seçilen item adedi kadar tekrar et listview1.Selected.Delete; //seçiliyi sil end;end;