No entiendo si quieres quitar Items o SubItems....
Código Delphi
[-]
var
i: Integer;
begin
ListView1.Items.BeginUpdate;
try
for i := ListView1.Items.Count-1 downto 0 do
if NoMeGusta(ListView1.Items[i]) then
ListView1.Items.Delete(i);
finally
ListView1.Items.EndUpdate;
end;
Saludos!