Buscar en ListView y mostrar solamente los datos encontrados.

[wolfran_hack]

Buenas a todos, tremendo foro, pero algo que me esta matando es tratar de realizar la siguiente acción:

1.- Tenemos un ListView, con dos columnas (Nombres y DNI).
2.- Se necesita buscar en el ListView Nombres registrados varias veces o que ya esta registrado.
3.- La Idea es Buscar mediante un Edit1.Text el valor que queremos y que de los 650 valores que tenemos actualmente, que se guardan a un csv, eliminar "de la lista" los que no queremos ver y así obtener el resultado de la búsqueda. Habia pensado de la siguiente manera:

Código Delphi [-]
procedure frmMain.btnBuscarClick(Sender: TObject);
var
i: Integer;
begin
for i:= 0 to Lista.items.count -1 do
begin
  if Lista.items[i].Subitems[0] = Edit1.Text then
     begin

     end
  else
     begin
        Lista.Selected.Delete;
     end;
end;

Pero no logro hacer que funcione. Directamente se cuelga el programa.

Cualquier ayuda, se las agradecería.