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