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