with listbox1.items do
begin
   if indexof('xxx') >-1 then
   delete (indexof('xxx'));
end;我用delphi 5编译没有错误啊?