[nixel]

Можно так. Чтобы покороче.

Код:

 For i:= 0 to (listbox1.count - 1) do 
if (Pos(Edit1.text,listbox1.items[i])=0) then listbox1.items[i].delete;