ListView删除选中的多项目

//ListView删除选中的多项目
function DeleteMultSelItems(ListView:TListView):Boolean;
var
  I: Integer;
begin
  Result :=False;
   if ListView.Selected = nil then Exit;
   for i := ListView.items.count - 1 downto   0 do
   begin
     if ListView.items[i].selected then
       begin
        ListView.items[i].Delete;
        Result :=True;
       end;
   end;
end;

来自为知笔记(Wiz)