i:=0; repeat if (Pos(Edit1.text,listbox1.items[i])=0) then listbox1.items[i].delete; i++ until i=listbox1.count-1;
