[<<D>>]

2) Удалить всё, кроме выделенной:

Код:

procedure TForm1.Button1Click(Sender: TObject);
    var i:integer;
    begin
      for i:=listview1.Items.Count-1 downto 0 do
      begin
        if listview1.Items.Item[i].Selected then
        else listview1.Items.Delete(i);
      end;
    end;

Обернуть выделение:

Код:

    procedure TForm1.Button1Click(Sender: TObject);
   var i:integer;
   begin
     for i:= 0 to listview1.Items.Count-1 do
     begin
       if listview1.Items.Item[i].Selected then
       listview1.Items.Item[i].Selected:=false
       else listview1.Items.Item[i].Selected:=true;
     end;
   end;