delphi - 編集ボックスを使用してリストボックスをフィルタリングする

Question

編集ボックスを使用して Delphi のリストボックスをフィルタリングしようとしていますが、うまくいきません。エディット ボックスの OnChange イベントに基づくコードを次に示します。

procedure TReportDlgForm.FilterEditOnChange(Sender: TObject);
var
  I: Integer;
begin
  ListBox1.Items.BeginUpdate;
  try
    for I := 0 to ListBox1.Items.Count - 1 do
      ListBox1.Selected[I] := ContainsText(ListBox1.Items[I], FilterEdit.Text);
  finally
    ListBox1.Items.EndUpdate;
  end;
end;

編集ボックスに入力すると、リストボックスの項目がフィルター処理されることを願っています。