Filter für eine ListView realisieren

[CalganX]

Hi,
ich versuche im Moment meine ListView (die immer noch über 500 Einträge haben wird) einen Filter zu integrieren.
Mein Problem ist, dass ich zwar theoretisch meine Update-Routine nochmal durchlaufen lassen kann mit einem Filter, allerdings würde das gut fünf Sekunden benötigen (der Zugriff auf ca. 800 Einträge über die Registry ist leider nicht gerade ein Rekordzeit zu erledigen). Dadurch wird das Tippen in die Filter-Edit-Box erheblich erschwert.

Deswegen habe ich auf die schnelle einen Source geschrieben, der eigentlich meine Probleme hätte lösen sollen.

Delphi-Quellcode:

var
  idx: integer;
  ListItems: TListItems;
begin
  {Filter anwenden}
  edtFilter.Enabled := false;
  ListItems := TListItems.Create(nil);
  try
    for idx := 0 to lvExtensions.Items.Count-1 do begin
      if Pos(edtFilter.Text, lvExtensions.Items[idx].Caption) <> 0 then
        ListItems.Add.Assign(lvExtensions.Items[idx]);        
    end;
    lvExtensions.Items.Clear;
    lvExtensions.Items.Assign(ListItems);
  finally
    ListItems.Free;
  end;
  edtFilter.Enabled := true;
  edtFilter.SetFocus;
end;

Leider stürzt das Programm mit einer Access-Violation ab.
Außerdem scheint mir diese Möglichkeit auch nicht sehr praktisch, wenn man den Filter ändert (sprich einen Buchstaben ändert) würde man die komplette Liste wieder neu laden müssen. Im Endeffekt würde das wieder meine Lösung mit dem Registry-Zugriff sein.

Hat jemand eine andere Idee sowas zu realisieren, was auch noch bei tausenden ListView-Einträgen funktioniert und erst noch einmal alles aus der Registry zu laden?

Chris