Selección Múltiple de Items en un ListView

[Rolo]

Hola a tod@s !

No consigo encontrar mucha información concreta sobre este tema en internet y por el foro he encontrado cosas pero no me sirven para lo que necesito. Tengo montado un listview y quiero que se puedan borrar múltiples items que hayan sido seleccionados previamente. Lo que no se es si se puede hacer por la vía rápida mediante algo semejante:

Código Delphi [-]
var
ii : integer;

begin

if form1.listview1.Selected = nil then begin
exit;
end;

if (form1.listview1.Items.Count <> 0) and (form1.listview1.Items.Count <> -1) then begin

For ii:=0 to ListView1.Items.Count-1 Do
  If ListView1.Items[ii].Selected = true then
    begin
      ListView1.Items.Delete(ii);
    end;

  end;
end;

o bien hay que usar algún procedimiento:

Código Delphi [-]
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
//
end;

gracias anticipadas por vuestra ayuda y consejos