Listbox suche (Live) Buchstabenfolge

[Detrox]

So funktionierts

Delphi-Quellcode:

procedure TForm1.SucheditChange(Sender: TObject);
begin
if Suchedit.text <> '' then
  begin
    Mailerlistbox.Items.Text := Mailerliste;
    FilterItems(Mailerlistbox.Items, Suchedit.Text);
  end;
  if Suchedit.text = '' then
  Mailerlistbox.Items.Text := Mailerliste;
end;

Ich danke euch