Listbox suche (Live) Buchstabenfolge

[Detrox]

Deddy , danke für den thread

Der Code leuchtet ein

Delphi-Quellcode:

uses StrUtils;

procedure FilterItems(const sl: TStrings; const substr: string);
var i: integer;
begin
  sl.BeginUpdate;
  try
    for i := Pred(sl.Count) downto 0 do
      if not StrUtils.AnsiContainsText(sl[i],substr) then
        sl.Delete(i);
  finally
    sl.EndUpdate;
  end;
end;

aber funktioniert halt nicht im onKeyPress, logich weil ich ja den nicht gelöschten Inhalt wieder in die Listbox einfügen muss.

Nur habe ich keine AHnung wie, villeicht ein kleiner Denkansatz , würde mich freuen