[dec]

Hola,

Código Delphi [-]
var
  i: integer;
begin
  for i := Listbox1.Items.Count - 1 downto 0 do begin
    if Pos('Articulo', Listbox1.Items[i]) = 0 then
      Listbox1.Items.Delete(i);
  end;
end;