//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;