[[eduarcol]]

Lb = Listbox
nid = Indice o Contador

Código Delphi [-]
var
   nId: Integer;
begin
   for nId := 0 to lb.Items.Count do
   begin
      if Copy(lb.Items.String[nId], 1, 9) <> 'Articulo-' then
         lb.Items.Delete(nId);
   end;
end;

pd. esta de memoria, no lo he probado espero te sirva